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be distributing only those sections of updated product specifications that 
have changed. The smallest unit ever to be replaced will be one section; 

individual page updates will not be sent out. 
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section(s) to be superseded, and, where appropriate, the Table of Contents 
and Alphabetic Index from the last revision and substitute the new material. 
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BURRIJUGIS CORPORATION COMPANY CONFIDENTIAL 
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SANTA BARBARA PLANT | P.S. 2212 5272 
GENERAL 


The 31790 Remote Job Entry/Data Comm Handter (C(RJE/DCH) program 
enables a B1700 system to interface with any other Burroughs system 
(small» mediums or targe) tn the Remote Job Entry (RJE) mode. 
RJE/ICH performs two essential functions for the REMOTE 81700: 


1) Establishing» or rerestablishings communication with the 
HOST system. _ | | 


2?) Atlowing the user program to exert control Over data comm 
line activity (1t.e.» [/0). 


RJE/ICH allows the REMOTE console program or I/0 program(s)» each 
using queue files» to control the flow of activity between REMOTE 


and dOST systems... 


When a 31700 CREMOTE) is onwline with a B1700 CHOST)» RJE standard 


Line discipline is used for communication. When a B1700 (REMOTE) is 


onwline to a medium~(€(B2700/3700/4700) or lLarge-system (86700/7700) 
HOST» the console and the [/0 programs must conform to RJE message 
fornat conventions (See INTERFACE MESSAGE FORMAT below). 


This product specification describes the various tine and program 
standaris required by RJE/OCHs and sample programs» complete in in 
thenselves» are to be found tn appendix B (Section 10). 


RELATED DOCUMENTATION 


NAME | a NUMBER 

B57)) Ramote Job Entry System Information Manual | 5000300 
B2700/3700/4700 Remote Job Entry System Information Manual 

B170) NIL Information Manual 1073715 
B1709 System Software Operation Guide 7 10687 31 
B172) Data Comm Audit CRevision A) 2 | CP.Se) 2212 5421 
B1700 N)JL CBNF Version) CReviston A) PRS ed) =62 212 5223 
B17090 NIL Library CRevision 8B) | CP.S.) 2212 5215 


B1700 RIE/Terminal CNDL) CReviston A) : CP.S-) 2212 5249 
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FUNDTIOVAL DESCRIPTION 


m= oe naam ne ee a ee ee ee em 


The data comm line discipline ts conversational and the message 
format is wett defined. The Line discipline 15 conpletely 
symmetrical and therefore two 81700s—= may communicate with each 
othar asing RJE/DCH. RJE/DCH may be used with synce asynce direct 
connect» leased or switched lines. Transmission rates from 1200 bps 
to 9500 bps have been qualified. 


The usee written I/0 program can direct RJE/DCH to perform five 
functiors to control the data comm Line activity. They are: : 


1. To stop all Line activity and terminate itself | 
>. To wait for notification of connection from the remote computer 
3. To revtestablish communication | 
h. To display a summary of tine exception conditions 

5. To start or stop auditing Line activity 
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ie 27ROSRAM INTERFACE 


The user written I/0 progran tnterfaces with RJE/DCH through queue 
files. To send a message to the remote computer» the I/0 program 
must write to a queues to receive a message from the remote system-e 
the I/0 program must read from one of two queues. A fourth queue is 
used for sending control commands to RJE/DCHe. 


INTZRFACE MESSAGE FORMAT 


i 


The foraat of atl messages transferred between the I/0 program = and 
RJE/ICH are identical. Each message has a 10-byte header which 
contains information about the message. Before sending a message to 
RJE/ICH» the I/D program must seat the three fields in the header to. 
the aporopriate values» and conversely RJE/DCH sets the _ three 
fields to the correct value before sending messages to the I/0 
program. ALt data transferred between the two programs is in 


E8CO9IC. The format of the message is: 


J1 MESSAGE.FORMAT >» 
J2 MESSAGE-HEADER» 


03 STATION.ID CHARACTER (3)> 
93  TEXT.LENGTH CHARACTER (4)> 
93 TYPE CHARACTER (3)> 
12 MESSAGE.TEXT CHARACTER (400), 
0 3 7 10 
STATION 10 ¢TEXT LENGTH {TYPE TEXT MAX OF 400 CHAR 1 


STATION.I) ts a three character field that is used to tdentify the 
message. The vatue of STATION.ID must be tn the range 000 to 099. 
If conmuicating with the 86700/87700 or 82700/3700/4700 standard 
RJE» the value must be tn the range of 000 to 003. 
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TEXT»LENGTH is a four-charazter EBCDIC field that defines the size 
of text i. characters. The text Length may not exceed 400. | 


TYPE is used to tdentify control commands for RJE/OCH and is not 
applicadle for messages to be transmitted to the remote computer. 


Applicadle values of TYPE are: 


i Gs nae VALUE GF STATION.ID CONTROL FUNCTION: 

999 000 STOP RJE/DCH 

998 000 | DISPLAY LQG 

997 000 REESTABLISH CONNECTION 

996 | 000 WAIT FOR RING | 

994 000 STARTS OR STOPS AUDITING OF DATA 


COMM I[/0 ACTIVITY 


MESSAGE.~TEXT may contain any EBCDIC character string that is 
translatable into mnonecontrol ASCII characters as defined in 
Appendix Ae RJE/DCH does not support transparent transmission = and 
therefore the character set is Limited to the EBCDIC counterpart of 
the ASCII character set. RJE/DCH expects EBCDIC messages from the 
I/O oprodgram and translates them into ASCII before transmission to 
the renote systems» and conversely all incoming ASCII messages are 
translated tnto EBCDIC. 


QUEJE FILES 


RJE/ICH maintains four queues for interfacing with the I/0 program. 
The tLapats and functions of these four queues are: 


QUEUZ LABELS - FUNCTION 
RJE/IATA.~COMM | | Any message inserted by the I/0 
| 3 program in this queue witt be 


transmitted by RJE/OCH to } the 


remote computer. The STATION.IO 
must be 000» O01» 002 or 003. 
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Messages received from the remote 
computer are inserted in the queue 
by RJE/DCH. Onty messages with 
STATION.ID of 002 or 003 are 
inserted in this queue. 


Messages received from the remote 


computer are queued here if the 
STATION-ID is 000 or 001. The I[/0 
program should read this queue e 


Control commands Cif TYPE = 994 to 
999) for RJE/DCH should be written 
to this queue. Messages inserted in 
this queue witl not be transmitted 
to the remote computer. | 
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Figure 3.1 1/0 Interface 
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SYSTEM VEQUIREMENTS 


In addition to the basic Memory required for RJE/DCH C/K Bytes)» 


MCPLI €34K Bytes)» and the user programs» the following hardware is 
needad: 


1) B1700 single line control or multiline control 


2?) g1700 standard synchronous» asynchronous or two wire direct 
connect adapter 


3) Leased» switched or direct connection with appropriate data 
sets and cables 7 


Note: An adapter timeout oeriod of 2.5 seconds at the B1700 and 53 
seconds at the remote conputer is standard. 


The 31720 RJE/DCH requires Mark Ve0 tevel MCP II and the following 


Level of host system software: 


34700 MCP V ASR 5-3 or higher 
3 6709 MCP Mark II-5 or higher 
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CONTROL COMMANDS & plas MESSAGES 


This section contains an exntlanation of control commands and error 
messages. 


CONTROL COMMANDS: 


STOP CTYPE = 999) 


This command terminates the current session by Instructing 
RJE/DCH to cease all Line activity and to terminate itself. 
All queued messages are lost. | 
DISPLAY LOG (TYPE = 998) 
This command causes RJE/DCH'S summary of Line exceptions to be 
displayed. The error fields are then re-initialized. These 
totals are an indication of the rate of error activity on the 
line. The canes af this summary is? 

"<NUMBER> NAKS SENT BECAUSE OF PARITY ERRORS" 

"<NUMBER> NAKS SENT BECAUSE OF NO BUFFERS" 

"<NUMBER> TIMEQUTS IN READ GPERATLIONS® 

*"<NUMBER> TIMEQGUTS IN WRITE OPERATIONS” 

"<NUMBER> OTHER EXCEPTIONS IN READ OPERATIONS” 

“<NUMBER> OTHER EXCEPTIONS IN WRITE OPERATIONS" 
REESTABLISH CONNECTION CTYPE = 997) 
This command will force RJE/DCH to try to re-establish the line 
connection with the remote computer. Any message currently 
being transmitted witl be lost. When the connection has been 
re-established,» the message | 

| "ONLINE™ 

will be displayed. The RETRIES"UP error message indicates that 


the current buffer being sent to the remote computer 13 not 
being received. This command may be used to discard this 


ym? 
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buffer» thereby allowing transmission to proceed. 
WALT FOR RING (TYPE = 996) 


Instructs AJE/UCH to cease all line activity and wait to answer. 
a call from the remote computer. RJE/DCH will issue a TEST-OP 
for data set ready. When control returns to RIJESOCH» 
indicating the phone has rung and been answerede RJE/DCH will 
display the message: 


"PHONE RINGING" 


AUDIT CTYPE = 994) 


Instructs RJE/DCH to stop or start auditing of data comm 1/0 
activity. The first time RJE/DCH receives this command» 
auditing is started. fhe mext time RJE/DCH receives this 


commands auditing 1s stopped. Auditing may be stopped or 


started any number of times while RJE/OCH is running. 


1. 


for 
may 
recover on its own. 
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ERROR MESSAGES 


certain error conditionss RJE/JDCH will display messages which 
require action by the operator while RJE/DCH 15 attemping to 


"LOSS OF DATA.SET-READY® 


This error was caused during the tast [/0 sequence because’ the 
data set or the Line went down. The error is recoverable» but 
the data set should be checked. If switched lines are being 
used» RJE/DCH will disconnect Cif a connection had been 
established)s connection must be re-dialed for 


rewestablishment. 


"LOSS OF CLEAR TO SEND" 
Indicates a data set problem occured during the last attempt to 
transmit by the RJE/CCH. Recovery can be made» but the data 
set should be checked. 

"MEMORY PARITY ERROR™ 


while attempting to send a messayje to the remote computer » a 
parity error occurred while transmitting the message from the 


B1709. This 15 an trrecoverable error. 


PRETRIES-“UP" 


Indicates that the current buffer being sent to the remote 


computer is not being acknowledged» either due to the remote 
computer onaking the message or because of Line problems. After 
fifty attempts at transmission» the RETRIES“UP message is 
displayed by RJE/DCH. RJE/DCH then continues trying to 
transmit the ouffer either until it is acknowledged by the 
remote computer or until the reestablish connection command 
is received from the 1/0 program whereupon the buffer is 
discarded and a new one obtained. | : 


"ESTABLISHMENT RE TRIES UP® 


After 50 attemots to establish a Link with the remote computers 
and if no tink was established» RJE/DCH will display this 
message. If switched lines are being used» RJIE/DCH wilt 
disconnect and the connection must be rem~dialedr otherwise 
RJE/DCH will continue attempting to establish a link with the 
remote system. | 


4m & 
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6. "WAIT" IGNORED ADAPTER NCT SWITCHED" 
When a control command requesting a wait for ring CTYPE = 996) 
is sent to RJE/OCH and switched tines are not being used 
RJE/DCH will display this messages. RJE/DCH wilt then ignore 
this command and continue. | | 
fe. “*"HOST TERMINATING” RECEIVED" 
when “HOST TERMINATING" is received from the remote computer,e 
it ij indicates that: the remote computer 15 going down. If 
SWitched Lines are being used by RJE/DCH» it will disconnect 
the line and wait for the connection to be re-dialed. RJE/DCH 
will then attempt to reestablish the tink with the remote 
computer regardless of the type of lines used. 
Be. “FILE “DC/AUDIT.FILE"™ LOCKED" 
hen the control command CTYPE = 994) requests RJE/DCH to start 
auditing tine activity and DC/AUDIT is already being used by 
another data comm handler (i.e.» file "LOCKED")» RJE/DCH 
displays this nessage and the new command is ignored. 
9. “INVALID RESPONSE" 
At BOJ time» when RJE/DCH requests entry of the port, channel 
and adapter number from the console printer» and if the 
response entered 1s invalid (non-numeric )» RJE/DCH wilt 
Gisplay this message and request the operator to enter it 
again. | 
10. "ERROR: CONTROL NOT PRESENT". 
This message is displayed by RJE/DCH at BOJ time when the 
proper control was not present at the address supplied by the 
operator. RJE/DCH will then send a "00" control message to the 
I/O program indicating that the RJE/DCH is going to end of 
job. | 
‘11. "ERROR: INVALID ADAPTER TYPE" 


If RJE/DCH finds that no adapter or invalid adapter 1s present 


at the address provided by the operator» RJE/OCH will disptay 


this message and send a “00" control command to the I/0 
orogram indicating the RJE/DCH tis going to end of job. 


Me ake ee 
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OPERATING PROCEDURES 


ESTABLISHMENT 


RJE/ICH when executed will display the following message: 


aeee BI1700 RJE NNeN CDATE) (TIME) **** 


wher2 NVeN is the current RJE teavel. 


RJE/ICH then disolays a message requesting that the ports channel | 
and adapter numbers be supplied in response to an accept. These | 
paranet2rs are dependent on the specific hardware configuration of 


the 31700 system. The operator response required is: 


<MIX INDEX>AXPPCCAA 


wher2: PP? is two numeric digits specifying the SLC or MLC port #. 


cs is two numeric digits specifying the SLC or MLC channel #- ; 


AA is two numeric digits specifying the SLC or MLC adapter @#. Na 


EXAMPLES 2AX071200 


RJE/ICH will establish communication with . the remote computer 
systeme For switched Lines» it is necessary to manually dial the 
remote computer system. A message 15 displayed to indicate renote 


computer connection» either 
PONLINE™ or “HOST ESTABLISHING™ 


dependiizg upon which system sees the other establishment first. 
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PRLTIRITES 


RJE/)CH for normal operations have a higher priority than the 1/0 
program. 


TERYINATION 


RJE/)CH can be terminated with the STOP command CTYPE = 999) defined 
in the drevious section. If an abnormal condition causes a D5 or DP 
condition for RJE/DCH» a Clear/sStart should be performed to insure 
that no I/O operations are left pending. | 
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RJE STANDARD LINE DISCIPLINE: 


LINE PROTOCOL 


A cont2ntion mode protocol is employed. The main features of this 


protocol are as follows: 


Ae If the receiver has a message» the message is returned as) an 
ackiowledgment» thus reducing line turnarounds per messagee 


Be. If the receiver does not have a message» an ACK is returned as 


an acknowledgments thus minimizing the length of time the Line 


is tied upe 


The tin2 code used is 7 bit ASCII plus one parity bite The 61700 
data conm adapter translates outgoing code from EBCDIC to ASCII and 
incoming code from ASCII ts EBCDIC. See Appendix A for translation 


table of ASCII to EBCDIC. 


Parity is even for asynchronous and direct connects and 1s odd for. 


synchrowo0us transmission. 


The following two page ittlustration descripes the Burroughs” Line 
discipline. . 
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Figure 6.1 (Cont .) Linesdiscipline Message Flow 
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NOTES FOR FIGURE 6.1 


The following notes refer to the preceding diagram of the flow of 
the RJE Line protocol given in Figure 6.1.2 The parenthesized 
numbers in that figure relate portions of the diagram to the 
following notes. Also» the terms “system™ and “remote” may be 
interchanged without affecting the accuracy of the text. 


MESSAGE RESPONSE 


an Gh ae af a aD @ ee ow eS we me ee a oe 


Initially» the system is transmitting a message to the remotes = in 
response to this transmission» the system may expect a number of 
responses transmitted by the remote. | | 


1. If the receiving terminat has data to transmit to the system 

: after it has received the message from the systems it wiil 

positively or negatively acknowledge the receipt of the 
message in one of the following manners: 


A. If the message received was found to have partty errors or 
an invalid format» then the Transmission Number CTN) 
character from the Last valid message received will § be 
returned in the "ARM" field of the message transmitted to 
the system. : : | 


Be If the message received was found to be valid, then the TN 
character from the received message will be returned in the 


"ARM" field of the message transmitted to the system. 


2 « If the remote has no data to transmit to the system after it 
has recetved the message from the system» it wilt positively 
or negatively acknowledge the receipt of the message in one 
9f the following manners: 


Ae If ‘the message received was found to be invalid, then a 
single “"NAK™ control character will be transmitted to the 
system. | 


ew 
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Be If the message received was found to be vatids then a 


two-character message consisting of the TN character from 
the received message followed by an "ACK" control character 
will be transmitted to the system. 


The System must respond to these acknowledgment messages from the 
terminal in the following aanner: | 


Le 


If. a “NAK"™ character was received from the remote (Case 2.A) 
or if the remote responded with a message containing text 
(Case 142A) with an “ARM®™ character which does not match the 
last TN character sent» then the system must retransmit the 


last message sent without changing the IN character. Data 
may still be received from the remotes the system positively 
or negatively acknowledges — response messages by 


appropriately setting the "ARM® character o f the 
retransmitted message to the ITN character of the Last valid 
message received from the remote. A null "ARM™ indicates an 
invalid message was received. 


If the ARM field of the message received from the remote 
matches the TN character of the last transmitted message 


(Cases 1-8 and 2.B)» then the system must increment its TN 


character and transmit the next message to be sent to the 
remote. 
If the response given. by the remote ts totally 


unrecognizable by the system» the system assumes that a 


negative acknowledgment has been recetved» which leads to a 
retransmission of the tast message sents the ITN character is 


not changed. If the remote had been trying to positively 


acknowledge the last message tt received» it must tgnore 
this retransmitted message but also tissue another 
acknowledgment. | 


If the remote has not responded to the Last message sent by 


the system within a precspecifted timeout period» the system 
retransmits the message without changing the TN character. 
Thus» the cycle reverts back to step (1). It is recommended 
that the communicating systems haye different timeouts: a 
timeout of 2.5 seconds for the B1700 and three seconds for 
the remote system ts suggested. 


an 
wend 
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MESSAGE FORMAT 


As with the line protocol» the message format adheres to the 


criteria 


of maximizing line throughput and detection and recovery 


of errors. The format of the message is in ASCII-67 character code 


(Appendt 


x A) and ts as follows: 
SA SDD | E B 
| T a 
O R LR fom ee ee ee OTE eo oes ee OE 
. N | 
HM Xx 1 2 xX C 


The individual characters in this message format function as 


follows: 


A. 


Be 


SOH - This is the standard ASCII SOH character’ which 
indicates that data is being transmitted. 


ARM - This “ACKNOWLEDGE RECEIVED MESSAGE" character is used 
to indicate positive or negative acknowledgment of the 
previous message received with respect to message parity 
and message transmission number (TN). The ARM character is 
initialized to anul character during the establishment 
phase of the protocol. When an ARM sequence (SOH“ARM) = is 
received» it is compared with the Last transmission number 
sent. If the ARM agrees with that TNe the Last message sent 
has been positively acknowledged. | 


If the characters do not agree» the previously sent message 
is being negatively acknowledged and must be retransmitted. 
When a valid text message is receiveds the transmission 
number contained in that message is stored for use as- the 
next ARM character transmitted. 


TN - This character is regarded as the *"TRANSMISSION 
NUMBER™ portion of the message which is used for purposes 
of positively or negatively acknowledging a message. Each 
end of the data comm tine uses onty two alternating 
characters as transmission numbers. The transmission 
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numbers selected for implementation by RJE/DCH are “F™ and 


"US. 


Dp. STX - This is the standard ASCII STX character which serves 
as the delimiter between the preceding header portion and 
the text portion of the message. 


fF. DAL and DA2 - These two "OF VICE ADORESS™ characters serve 
to identify a message. The Lowrorder two bytes of the 
STATION-I1D field defined in section 3 correspond with ODAl1 
and DA2. This is applicable to both incoming and outgoing 
messages- These characters must be numeric or RJE/DCH will 
treat the message as invalid. | 


Fr. TEXT - This is the text field. The RJE Line discipline is 


insensitive to the contents of this field Cexcluding 


control characters). 


G. ETX - This is the standard ASCII EIX character which serves_ 


to indicate the end of the text of a message. 


He BCC = This "BLOCK CHECK CHARACTER™ is the longitudinal 
parity character of the message. It represents the 
exclusive-or of all characters in the message following the 
SOH character up to and including the ETX character. The 


purpose of the BCC character is to ensure proper receipt of 


messages- Messages containing incorrect BCC characters are 


negatively acknowledged. 


RJE/DCH removes all control characters from incoming messages and 
transfers the text portion of the message to the I[/0 program. The 


STATION-ID and TEXT-LENGTH are set to the correct values. 


Conversety» messages coming from the I/G program have control 
characters appended before being transmitted to the remote system. 


f= 
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RJE MESSAGE CONVENTIONS 


This section describes the message conventions required for 
interfacing with Burroughs 6700/87700 or B2700/3700/4700 host RJE. 
There are two types of messages transferred between the host system 
and the remote system. They are: | 


1. UNIT RECORD MESSAGE: These are messages that have 
originated from or are destined for unit record devices 
(card reader» card punch»s printer and console printer). 


22 RJE system messages are used for transfer of system 
information between the host and the remote. 


UNIT RECORD MESSAGES 


The format of unit record messages is as follows: 


SA SDD -C- - -Cc- - EB 
T toot PR ot ot 

OR TAA tC t <UNIT RECORD> | 1 C 1 <UNIT RECORD> 1...T € 
N bot 1s tf to 

HM X12 -1- - -2- - xc 


Where each column of capital letters indicates a single character » 
the brackets (€ 1) indicate an optional element (as discussed in 
the following paragraphs)» and ..- indicates possible repetitions 


of the preceding optional element. 


DAL and DA2 - These characters are used to define the device. 
designation. | | | | _ : 


DA1 DA2 DEVICE DESIGNATION | 
0 0 SYSTEM CONTROL 


0 1 TO/FROM CONSOLE 


Yon 


aed 
ot 


alg decuad ede dea calacstacsae aaa iogous 2Gae tad 


fa 
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0 2 TD CARD PUNCH FROM CARD READER 
0 3 TO LINE PRINTER | 
The 1/0 program controls device designation by. setting — the 


appropriate values in the STATION.ID field. The following tables 
define acceptable values for STATION-ID and the associated queues. 


Messages sent by I/0 program to RJE/DCH are- 


VALUE OF STATION.-ID TYPE QUEUE | REMOTE SOURCE 
000 | 000 RJE/DATA-COMM SYSTEM CONTROL 
001 000 RJE/DATA-COMM SPO 
002 — 000 RJE/DATAeCOMM READER 


COMMAND DEFINITION | 


000 | 999 DATA-COMM/CONTROL STOP RJE/OCH 


000 998 DATA-COMM/CONTROL DISPLAY LOG 
000 997 DATA«COMM/CONTROL REESTABLISH 
| | CONNECTION 
000 996 DATA~«COMM/CONTROL WAIT FOR RING 
000 994 — DATA.COMM/CONTROL START AND STOP 
AUDLTING 


STATION.1LDS and type fields other than those described above are 
invalid. 


The user should note that the value of STATION-ID or type is 
associated with queues and should conform to the protocol. 


Messages sent by RJE/DCH to I/0 programs are: 


VALUE OF STATION. ID TYPE | QUEUE REMOTE DESTINATION 
000 000 | RJE/SPO.OUT RJE SYSTEM MESSAGE 
001 | 000 RJE/SPO.QUT SPO 


BURROUGHS CORPORATION 
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002 
00 3 


000 
000 


A value of STATION.ID greater than 3 


ccl - 
remote 


recipient of the message. 
to be performed by the remote 


convention. 


CCl 


> © 


cra ON TONMoOOWOYE ND 


UNIT RECORD 


1- One line 
2e One card 
3e One card 
4. One line 


This "CARRIAGE CONTROL” 
output device such as 
This 


character 
a line printer 
character a 
computer according to the 


1s 


COMPANY 


RJE/PRINT. OUT 
RJE/PRINT. OUT 


deride 


NO SPACE 
SINGLE SPACE | 
DOUBLE SPACE 


AND 
AND 
AND 
AND 
AND 


AND 
AND 


AND 


ANO 
AND 
AND 
AND 


AND 
AND 


SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 


SKIP 
SKIP. 


SKIP 
OK IP 
SKIP 


of print (132 characters) 
image from the reader (80 characters) 
image to be punched (80 characters) 
of console printer. 


invalid. 


CHANNEL 


~ CHANNEL 


CHANNEL 
CHANNEL 


CHANNEL 


CHANNEL 
CHANNEL 
CHANNEL 
CHANNEL 
CHANNEL 


CHANNEL 
CHANNEL 


- This may be any one of the following: 


C73 


CONFIDENTIAL 


B1700 RJE/DCH 
P.S. 


2212 5272 


PUNCH 
PRINTER 


is meaningful only when a 
1s designated as 
indicates carriage control 


the 


following 


(TO TOP OF PAGE) 


Met © 


input or output (72 characters) 


Unit records from different devices may not be tntermixed within the 


same message. 


Ait unit record data Cexcept console printer 
output) may be compressed using the following technique: 


input or 
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The ASCII control character» FSC» followed by two characters 
representing a two digit decimal number replaces a string of blanks 
whose length is given by that decimat number. Consecutive 
repetitions of this ESC convention must be used to represent 
strings of more than 100 blanks. For examples the following 
character string appearing in the text portion of a message would 
represent 104 consecutive blank characters: . 


E CE 
$99505 
c UC 


RS - This is the standard ASCII RS character which serves to 
separate records within a single messagee Two adjacent. RS 


characters or two RS characters separated by a CCl character (Cif 
the device is a Line printer) indicate a blank record. 


RJE SYSTEM MESSAGES 


ALL RJE system messages have the following format: 


SATS ODOCC E B 
ORNTAAOOD OATA T C 
H Xx 1212 X C 


Where DAl» DA2 are always “00. 


CDi» CD2 identify the different messages as follows: 


CD1> CD2~ DEFINITION 
00 (CRJE/OCH TERMINATION) 
A Local system message sent to the I/0 program indicating 


RJE/DCH has gone to end of job because of an error 
conditions the 1/0 program and console program should do 
Likewise. | 


se seiibetenemnhentieiidiemnamectateteamemmanta —p-— pe he an a Dh a a le 
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01 


O02DDD 


03 


Q04DDD 


(LOGGED ON) 


Sent by the host system to the remote terminal to inform the 


terminal that the operator using the terminal has been 
Logged on» and that the host will now accept operator 


messages and input data. 
(BUFFER SIZE REQUEST) 


Sent from the host system requesting a change in the length 
of messages being assembled for transmissions “ODD" tsa 
three character data field containing the requested message 
Length in decimal notation (200 means a maximum message size 


of two hundred characters). 


A buffer size request message is always answered with a 
buffer size reply (04) message. | 


It 1s important to note that the absolute maximum tength of 
messages which wilt be accepted on input is 400. 


(LOGGED OFF) 


Sent from the host to the remote informing the remote 
terminal that it is no Longer logged in to the host system» 
and that operator messages and tnput data will no longer be 


accepted. 
(BUFFER SIZE REPLY) 


Sent from the remote system as a reply to a BUFFER SIZE 
REQUEST (02) messages "DDD" is as defined for buffer size 
request. RJE/DCH will reply to a BUFFER SIZE REQUEST message 
with a BUFFER SIZE REPLY message containing the maximum 


Length of messages that it will nenceforth assemble. 
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SUGGESTIONS FOR CODING I[/0 PROGRAMS 


The 1/0 program may be written in COBOL or UPL. Both tangquages 
interface with queues through queue fite declarations and 
read/write functions. The COBOL “VALUE OF ID" and UPL “LABEL” for 
the queues should be set to the correct values. | | | 


SIE stesso 


In an RJE environments the I/0 program is expected to perform 
i functions such as read and compress cards» and transmit to the host 
; system. It may also be required to unpack received data and write 
to several peripherals. | 


The interface between the console. printer program and the _ I/0 
2 program need not conform to the RJE/DCH message formating 
conventions. | 


If the user desires to read B1700 control cards» then the STREAM and 
TERMINATE control statements must be usede- If a ?STREAM card 
precedes a deck of cards then all cards with invalid punches’ in 
column 1 are read as normal data cards. If an tnvalid character 
occurs in any other columns the MCP requests a resread of the card. 
When the MCP detects a ?TERMINATE card it exits from this mode. of 


‘| operation. 


Att communication between the [/0 program and RJE/DCH should be in 
EBCDIC. The I/G program is expected to set the correct values for 
STATION. ID» TEXT-LENGTH» and TYPE fields in the message header. 


eee te Segue 


re 
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sdbiua tnenaes A 


1967 EBCDIC EBCOIC EBCDIC 
ASCII | GRAPHIC | | PUNCH 

| CODE 
00 00 NUL 12-0-9-8-1 
01 OL SOH 12-9-1 
02 02 ST X 12-9-2 
03 03 —ETX 12-973 
04 37 EOT 9-7 
05 20 ENG 0-9-8°5 
06 2E ACK 0-9-8-6 
07 2F BEL 0-9-8-7 
08 16 BS 11-9-6 
09 05 HT 12-9°5 
OA 25 LF 0-9-5 
OB OB VT 12-9-8-3 
Oc Oc FF 1279-874 
OD OD CR 12-9-8-5 
OE OE SO 12-9- 8-6 
OF OF SI 12-9-8°7 
10 10 DLE 12-11-9-8-1 
11 11 | 0C1 1i-9-1 
12 | 12 pc2 11-972 
13 | 13 | DC3 11-9-3 
14 3c DC4 11-8-4 
15 3D NAK | 9-8-5 
16 32. SYN 9-2 
17 26 ETB 0-9-6 
18 18 | CAN 11-9-8 
19 19 EM 11-9-8-1 
1A 3F SUB 9-8-7 
18 27 ESC 0-9-7 
ic 1C FS 1179-874 
“20 | 10 GS | 11-9-8-5 
1E | 1E | RS 11-9-8-6 


LF 1F US =411°9-8-7 
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20 40 SP NO PUNCHES 
21 4F 12-8-7 
22 7F . 8-7 
23 78 ft B-3 
24 5B $ 11-873 
25 6C % 0-8-4 
26 50 & 12 
27 7D ' 8-5 
28 40 C 1278-5 
29 50 ) 11-8-5 
2A J5€ - 11-8-4 
2B 4E + 12-876 
2c 6B , 0-8-3 
20 60 - 11 
2€ 4B 12-8-3 
2F 61 / On1 

: 30 FO 0 0 

h 31 F1 1 1 

32 F2 2 2 
33 F 3 3 3 

34 F 4 A 4 
35 FS 5 5 
36 F6 6 6 
37 F7 7 7 
38 F 8 8 8 
39 F9 9 9 

ZA 7A 7 8-2 
38 5E ; 1178-6 
3C 4C < 1278-4 
30 7E = 8-6 
3E 6E > 0-8-6 
3F —6F ? 0-8-7 
40 7C a B-4 
41 Ci A 42-1 
42 C2 B 12-2 
43 C3 C L2*3 
bt C4 0 L274 
45 C5 E 12-5 
46 C6 F 12-6 
47 C7 G 12-7 

H 12-8 
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49 C9 I 12°9 
4A D1 J 1171 
| 4B D2 K 11-2 
: 4C 03 L 11-3 
: 4D D4 M 11-4 
: 4E 05 N 11-5 
: 4F D6 0 11-6 
2 50 . D7 p 11-7 
: 51 08 Q 11-8 
| 52 D9 R 11-9 
i 53 E2 as 0-2 
: 54 E3 T 0-3 
55 £4 U 074 
56 ES V O-5 
| 57 E6 W ae 
| 58 E7 X 0-7 
, 59 E 8 Y 0-8 
| SA E9 Z O-9 — 
5B & A [ 1278-2 
: 5C E0 \ 0-8-2 
50 SA ] 11-8-2 
| 5E 5F CARET 11-877 
| SF 60 7 0-8-5 
| SMALL 
LETTERS 
61 81 A 12-0-1 
62 82 B 1270-2 
63 83 Cc 12-0-3 
64 84 dD 12-074 
65 85 E 12-075 
66 86 F 12-076 
67 87 G 12-077 
68 88 H 12-0-8 
69 89 I 12-079 
6A 91 J 12-11-71 
6B 92 K 12-1172 
6C 93 L 12-11-3 
6D 94 M 1271174 
6E 95 ON 12-1175 
: 6F 96 0 1271176 
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70 97 p 12-11°7 
71 98 Q 12-1178 
72 99 R 12-11-9 
73 A2 S 11-072 
- A3 T 11-073 
75 A4 U 11-0-4 
76 A5 v 11-0-5 
17 A6 W 11-076 
78 AT x 11-0-7 
79 A8 Y 11-0-8 
7A A9 z 11-079 
7B CO LEFT BRACE 12-0 

7C 6A Les 12-11 
70 DO RIGHT BRACE 11-0 

7E Al DIFFERENCE 11-0-1 
TF 07 DEL 12-9-7 


a 


or 
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APPENDIX B 

SAMPLE COBOL CONSOLE PROGRAM 
000100 IDENTIFICATION DIVISION. 
000200 PROGRAM~ID. : CONSOLE“PROGRAM. 
000300 AUTHOR. BURROUGHS CORP. 
000500 DATE“WRITTEN. O7T/24/74.~ 
000600 DATE-“COMPILED. 
000800 ENVIRONMENT OIVISION. 
000900 CONFIGURATION SECTION. 
001000 GBJECT-COMPUTER. B-1700. 
001100 SOURCE-COMPUTER. B-1700. 
001200 INPUT“OUTPUT SECTION. 
001300 FILE“CONTROL.- 
001400 SELECT SPO-QUE-FD ASSIGN TO QUEUE. 
001500 I7O-CONTROL. | | 
001600 DATA DIVISION. 
001700 FILE SECTION. 
001800 FD SPO-QUE-FD 
001900 RECORD CONTAINS 73 CHARACTERS 
002000 VALUE OF ID IS *"RJE"/*SPO-IN"- 
002100 01 SPO-QUE. | 
002200 05 SPO-INFO. 
002300 10 STOP-MESS PIC X(5). 
002400 10 FILLER PIC X(55).- 
002500 05 SPO-ETX PIC io 
002600 05 FILLER PIC X(12). 
002700 WORKING“STORAGE SECTION. 
002800 01 WORKAREA. 
002900 05 ETX PIC 99 COMP VALUE 2032. 
003000 05 ETX“CHAR REDEFINES ETX PIC Xe , 
003100 05 RJE-UP PIC X€25) VALUE “EX RJEC/I0C CG 87870 PR /7™. 
003200 PROCEDURE DIVISION. | 
003400 START*PROGRAM.- 
(003500 ZIP RJE-UP. 
00 3600 OPEN OUTPUT SPO~QUE-FD.- 
003700 DISPLAY "ENTER SPO COMMANDS" UPON SPO. — 
003800 ACCEPT-LOOP. 
003900 | MOVE SPACE TO SPO-QUE- 
004000 ACCEPT SPO-INFO FROM SPO- 


SPO~ETX.- 
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004200 WRITE SPO~QUE. 

004300 IF STOP-MESS = *.STOP"™ OR ™.ST * 
004400 GO TO STOP“PROGRAM. 

. 004500 GO TO ACCEPT~LOOP. | 

004600 STOP-PROGRAM. | 

004700 CLOSE SPO-QUE~FD. 

004800 STOP RUN. 


eae 3 


eS RSS be ira ee ee ee 


on ee ee eee 


So eee 


Peg Tig ee eae ET eT ee ee Ca ee eee 
ee eee ee ee 
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SAMPLE UPL CONSOLE PROGRAM 


FILE RJESPO.IN (CLABEL="RJE"™/"SPQ. IN*»-DEVICE=QUEUE» BUFFERS=1>» 
RECORDS=73»0PEN.OPTION=OUTPUT)> 
DECLARE 
SPO.INFO CHARACTER (73); 
Zz ; 
ZIP "EX RJEC/IOU CG 87870 PR ae 
DO ACCEPT.LOGP FOREVER; 
ACCEPT SPO.INFO » END.OF. TEXT? 
WRITE RJESPO-IN C(SPO- INFO)3 
IF SUBSTR CSPO.INFO»20*5) = *.sSTOP™ OR 
SUBSTR C(SPO.INFO»023) = “™-ST™ 
THEN UNDO ACCEPT.LOOP> 
END ACCEPT.LOGOP> 
STOP» 
FINI, 


000010 
000020 
000030 
000050 
000060 
000080 
000090 
000100 
000110 
000120 


000130* 


000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 


000250 


000260 
000270 
000280 


000290 I-0- Ee Ners 
000300/ 


SAMPLE COBOL 


BURROUGHS CORPORATION 
SMALL SYSTEMS GROUP 
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IDENTIFICATION DIVISION. 


PROGRAM~ID. 


AUTHOR. 
DATE“WRITTEN. 

DATE-COMPILED. 
REMARKS. 


ENVIRONMENT 


DIVISION. 


CONFIGURATION SECTION. 
OBJECT“COMPUTER. 
SOURCE-COMPUTER. 


INPUT-OUTPUT SECTION. 


FILE“CONTROL. 


SELECT 
SELECT 
SELECT 


SELECT 
SELECT 
SELECT 
SELECT 
SELECT 


CARDS 
RJE“PRINT 


 RJE*PUNCH 


RJE“PRINT “OUT 
RJE-SPO-OUT 
RJE“DATACOMM 
RJE“SPO-IN 
DATA“COMM~CONTROL 


000310 DATA DIVISION. 
000320 FILE SECTION. 


000330 
000340 
000350 
000360 
000370 
000380 


000390 


000400 


000410 
000420 
0004 30 
000440 


FD 


01 


FD 


CARDS. 
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INPUT/QUTPUT PROGRAM 


I/O7PROGRAM. | 
BURROUGHS CORP. 
O8/05/74. 


B-1700. 


B-1700 


2212 S272 


SEGMENT*“LIMIT IS QO9 


ASSIGN 
ASSIGN 
ASSIGN 


ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 


RECORD CONTAINS 80 CHARACTERS 
VALUE OF ID *"RJE"/*"CARDS"™. 


CARDS~DETAIL. 
05 FILLER 


RJE-PRINT 
RECORD CONTAINS 132 CHARACTERS 
VALUE OF ID *"RJE™/"PRINT™. 


PIC 


READER. 
PRINTER. 


PUNCH. 


QUEUE. 
QUEUE. 
QUEUE. 
QUEUE. 
QUEUE. 


X(80). 


BURROUGHS CORPORATION 
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000450 01 PRINT<DETAIL. 
000460 05 FILLER PIC 
000470 | | 

000480 FD RJE-PUNCH 

000490 RECORD CONTAINS 80 CHARACTERS 
000500 VALUE OF ID "RJE"™/*"PUNCH*. 
000510 

000520 01 PUNCH=-DETAIL. 

000530 05 FILLER PIC 
000540 a 

000550 FO RJE-PRINT-OUT 

000560 RECORD CONTAINS 411 CHARACTERS 
000570 VALUE OF ID "RJE"/*PRINT.OUT”. 
000580 | 

000590 01 RJEPRINT<“DETAIL. 

000600 05 FILLER PIC 
000610 

000620 FD RJE-SPO-OUT 

000630 RECORD CONTAINS 80 CHARACTERS 
000640 VALUE OF ID "RJE™/*"SPO0.0UT™. 
000650 | 

000660 01 RJESPOOUT“DETAIL. | 

000670 05 FILLER PIC 
000680 

000690 FD RJE*DATA~COMM 

000700 RECORD CONTAINS 411 CHARACTERS 
000710 VALUE UF ID *RJE"/"DATA-COMM™. 
000720 | 

000730 01 RJEDATACOMM=-DETAIL. 

000740 05 FILLER PIC 
000750 | 
000760 FD RJE"“SPO-IN | 
000770 RECORD CONTAINS 73 CHARACTERS 
000780 VALUE OF ID "RJE"/"SPO.IN*. 
000790 | 

000800 01 RJESPOIN<“DETAIL. 

000810 05 FILLER PIC 
000820 a 

000830 FO DATA*COMM-CONTROL 

000840 RECORD CONTAINS 10 CHARACTERS 
000850 “VALUE OF ID “DATA.COMM"/"CONTROL™. 
000860 | 

000870 01 DATACOMMCONTROL-DETAIL. 

000880 05 FILLER PIC 
000890 

000900/ 


000910 WORKING“STORAGE SECTION. 
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—XC132). 


“X¥(B0). 


XC411). 


X€80). 


X(411). 


X€10). 


BURROUGHS CORPORATION 
SMALL SYSTEMS GROUP 


SANTA BARBARA PLANT 


000920 01 


000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
001010 
001020 
001030 
001040 
001050 
001060 
001070 
001080 
001090 
001100 
001110 
001120 
001130 
001140 
001150 
001160 
001170 
001180 
001190 
001200 
001210 
001220 
001230 
001240 
001250 
001260 
001270 
001280 
001290 
001300 
001310 
001320 
001330 
001340 
001350 
001360 
001370 
001380 


WORK“AREA. 
05 HOLD-CONTROL-CHARACTERS. : 
10 ESC-CHAR PIC Xx 
10 ETX-CHAR PIC X 
10 RS=CHAR PIC X 
10 NULL-CHAR PIC X 
10 SPO-RETURN PIC X 
05 HCC-RED REDEFINES HOLD-CONTROL-CHARACTERS.~ 
10 ESC PIC 99 
10 ETX PIC 99 
10 RS PIC 99 
10 NULL PIC 99 
10 SPO-RET PIC 99 
05 HOLD-COUNTERS COMP. 
10 OQUT-BUFF-PNTR PIC 9(8) 
10 CARD-COL-PNTR PIC 9(8) 
10 IN-BUFF-PNTR PIC 9(8) 
10 LINE-PNTR PIC 9(8) 
10 PNTR PIC 9(8) 
10 BUFFER-SIZE PIC 9(8) 
10 SPO-LENGTH PIC 908) 
10 CNTR-NUM ~ PIC 99 
10 CN-RED REDEFINES CNTR=NUM. 
15 CNTR OCCURS 2 TIMES PIC 9. 
10 B8UFFER-WORK PIC 9(8) 
10 SPO-PNTR PIC 9(8) 
10 HOLD-CC PIC 99° 
10 SUB-1 PIC 9(8) 
10 SUB-2 PIC 9(8) 
10 SUB-3 PIC 9(8) 
10 K-1 PIC 9 
10 K-2 PIC 9 
i0 SUB-TOTALS. 
15  CARD-CT PIC 9(8) 
15 PRINT-CT PIC 9(8) 
15) PUNCH-CT PIC 9(8) 
15 PRINT-BUFF PIC 9(8) 
15 PRINT-CHAR PIC 9(8) 
15 PUNCH-BUFF PIC 9(8) 
15 PUNCH-CHAR PIC 9(8) 
15  CARO-BUFF. PIC 9(B) 
15  CARD-CHAR PIC 9(8) 
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COMP. 
COMP. 


COMP. 
COMP. 


COMP. 


VALUE 
VALUE 


VALUE 
VALUE 
VALUE 


VALUE | 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


VALUE | 


VALUE 
V AL UE 
VALUE 


VALUE 
VALUE 
VALUE 
VALUE 


VALUE 
VALUE 


wON 
"Oo". 
woe, 
"QO". 


ol © bal 
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001390 
001400 
001410 
001420 
0014 30 
001440 
001450 
001460 
001470 
001480 


001490 


001500 


001510 
001520 
001530 
001540 
001550 
001560 
001570 
001580 
001590 
001600 
001610 
001620 
001630 
001640 
001650 
001660 
001670 
001680 
001690 
001700 
001710 
001720 
001730 
001740 
001750 
001760 
001770 
001780 
001790 
001800 
001810 
001820 
001830 
(001840 


001850 


05 


05 


05 


05 


05 


05 
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15 SP0O-1700 PIC 9(8) VALUE 0. 
15 SPO-1700-CHAR PIC 9(8) VALUE 0. 
15 SPO-HOST PIC 9(8) VALUE O. 
15 SPG-HOST-~CHAR PIC 9(B) VALUE 0. 
HOLD-SWITCHES. 
10 LOGGED-ON PIC X VALUE SPACE. 
10 FLAG-SET PIC X VALUE SPACE. 
10 BUFFER“FLAG“SET PIC x VALUE SPACE. 
10 EQUJ-SW PIC X VALUE SPACE. 
10 PRINT“FLAG PIC X VALUE SPACE. 
10 PUNCH“FLAG PIC x VALUE SPACE. 
LOCAL-COMMAND. 
10 LC*OCCURS OCCURS 5 TIMES. 
15 LOCAL-“CHAR PIC X. 
BUFFER-IN.- | 
10 BUFFER“IN “HEAD. 
15 STATION-IN PIC 999 VALUE 0. 
15 MESSAGE-IN“LENGTH PIC 9999 VALUE 0. 
15 TYPE PIC 999 VALUE O. 
10 PRINT-OUTPUT. 
15 SPO-IMAGE. 
20 SPO-CHAR PIC 99 VALUE 0. 
20 SPO-BUFFER PIC 999 VALUE O. 
20 SPO-AREA PIC X(67) VALUE SPACE. 
15 FILLER PIC X( 333) VALUE SPACE. 
10 PO-RED REDEFINES PRINT~OUTPUT. 
15 PRINT-OUT“RED OCCURS 405 TIMES PIC X. 
BUFFER-OUT. 
10 .BUFFER“OUT“HEAD. | 
15 STATION-OUT PIC 999 VALUE O. 
15 MESSAGE-OUT-LENGTH PIC 9999 VALUE 0. 
i5 MESSAGE“OUT-TYPE PIC 999 VALUE 0. 
10 CARD~BUFFER-OUT. a 
= 15 CARD“BUFFER OCCURS 405 PIC X. 
OUTPUT-“LINES. | 
10 PRINT“LINE OCCURS 133 TIMES PIC X. 
OL-REOS REDEFINES OQUTPUT~LINES. 
10 CARRIAGE-CUNTROL PIC Xo 
10 LINE-CHAR PIC X(132). 
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SMALL SYSTEMS GROUP 
SANTA BARBARA PLANT 


001860 
001870 
001880 
001890 


001900 
001910 


001920/ 


001930 
001940 
001950 
001960 
001970 
001980 
001990 
002000 
002010 
002020 
002030 
002040 
002050 
002060 
002070 
002080 
002090 
002100 
002110 
002120 


002130 


002140 
002150 
002160 
002170 
002180 
002190 
002200 
002210 
002220 
002230 
002240 


~002250 


002260 


002270 
002280 


002290 
002300 
002310 
0023520 


05 INPUT-“LINES. 


10 CARD OCCURS 81 TIMES. | 
15 COLUMN PIC Xo 


05 ZIP=-DCH PIC X(25) 
"FY RJEC/DCH CG 87870 PR 9". 


PROCEDURE DIVISION. 


DECLARATIVES. | 
ON-EXCEPTION“CARD-READER SECTION O. 
USE AFTER STANDARD ERROR PROCEDURE ON CARDS. 


SET“DUMP<-SWITCH. 

MOVE 1 TO SW1. 
END-DUMP<-SWITCH. 
END DECLARATIVES. 
START “PROGRAM 
START*SECTION. 


SECTION Ol. 


PERFORM INITIALIZE-RIN. 
MAIN~LOOP. 
READ RJE“SPO-IN INTO INPUT-LINES 
AT END GO TO CHECK-CARD-FILE. 
PERFORM ACCEPT~SPOQ. 


IF EQJ*SW = “X" 
GO TO END-RJEWIO. 


CHECK-CARD-FILE. 


IF BUFFER*FLAG“SET = ™ * 
GO TO CHECK~SPO-OUT. 


PERFORM PACK-AND“SEND“CARDS.- 
CHECK “SPO-OUT. 
READ RJE“SPO-OUT INTO BUFFER-IN AT END GO TO 
IF STATION-IN = 000 OR OO1 
PERFORM SPO-PRINT. 


CHECK TPRINT-OUT. 
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VALUE 


CHECK=PRINT-OUT. 


3 
y 
t 
{ 
| 
| 
al 
: 
4 
i) 
‘I 
4 
1 
4 
| 
! 
i 
{ 

i 
| 
1 
i 
! 


BURROUGHS CORPORATION 
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002330 
002340 


002350 | 


002360 
002370 
002380 
002390 
002400 
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READ RJE-PRINT=QUT INTO BUFFER-IN AT END GO TO MAIN-LOOP. 


IF STATION“IN = 002 OR 003 
PERFORM LINE“PRINT. 
GO TO MAIN“LOOP. 
END“RJE~I0. 
PERFORM DISPLAY-COUNTERS. 
STOP RUN. © 


002410 STARTcEXIT. 


002420/ | 
002430 ACCEPT=SP0 


SECTION 50. 


002440 ASIS“SECTION. 


002450 , 

002460 ADD K-71 TO SPO71700. 

002470 MOVE O01 TO SPO*LENGTH. 

002480 MOVE OG01 TO STATION-IN. 

002490 MOVE 000 T0 TYPE. . 

002500 MOVE 0000 TO MESSAGE-IN-LENGTH. 
002510 IF COLUMN (1) NOT = *." 

002520 ~=GO TO DETERMINE*LENGTH“AND~SEND. 
002530* 


002540* LOCAL COMMANDS FOR DCH OR IO PROGRAM 
002550* 


002560 MOVE O TO SPO-LENGTH. 
002570 MOVE O01 TO SPO-PNTR. 

002580 MOVE SPACE TO LOCAL-COMMAND. 

002590 | 

002600 LooP-C. 

002610 8 

002620 IF SPO-PNTR = 72 OR 

002630 COLUMN (SPO-PNTR) = "=" OR 

002640 COLUMN (SPO-PNTR) = ETX=CHAR OR 

002650 SPO-LENGIH = 5 

002660 GO TO SET“LOCAL“FLAG. 

002670 IF COLUMN (SPO-PNTR) = ™ ™ NEXT SENTENCE ELSE 
002680 ADD K-1 TO SPO-LENGTH 

002690 MOVE COLUMN (SPO-PNTR) TO LOCAL-CHAR (SPO-LENGTH). 
002700 ADD K-1 TO SPO-PNTR. | 

002710 GO TO LOOP-c. 

002720 | 

002730 SET-LOCAL-FLAG. 

002740 8 y, 

002750 IF LOCAL-COMMAND = “.RE ™ OR 

002760 LOCAL-COMMAND = ™.READ™ 

002770 OPEN INPUT CARDS _ | 

002780 MOVE "xX" TO  BUFFER-FLAG-SET 


002790 


ELSE 


10-10 
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0023800 IF LOCAL“COMMAND = ".LOG * 

002810 PERFORM DISPLAY“COUNTERS 

002820 MOVE 998 TO TYPE | 

002830 GO TO WRITE“DATA-~CONTROL 

002840 ELSE | 

002850 - IF LOCAL“COMMAND = ™.ST ™ OR 

002860 LOCAL“COMMAND = ™.STOP" 

002870 | MOVE *"X" TQ EOJ=“SW 

002880 MOVE 999 TQ TYPE 

002890 GO TO WRITE“DATA*CONTROL 

002900 ELSE | 

002910 IF LOCAL~COMMAND = *.WT © OR 

002920 LOCAL“~COMMAND = “™.WAIT*™ 

002930 MOVE 996 TO TYPE | 

002940 GO TO WRITEDATA "CONTROL 

002950 ELSE 

002960 IF LOCAL“COMMAND = *.EST * 

002970 MOVE 997 TO TYPE 

002980 GO TO WRITE-DATA~CONTROL 

002990 ELSE | 

003000. IF LOCAL-COMMAND = ".CL @™ OR 

003010 LOCAL-~COMMAND = “™.CLOS*™ 

003020 CLOSE RJE“PRINT WITH LOCK 

003030 CLOSE RJE-PUNCH WITH LOCK 

003040 MOVE * ™" TQ PRINT~FLAG»e PUNCH-FLAG 

003050 ELSE | 

003060 IF LOCAL-COMMAND = *.CLLP™ 

003070 CLOSE RJE-PRINT WITH LOCK 

003080 MOVE * © TQ PRINT“FLAG 

003090 ELSE 

003100 TF (COCAL-COMMAND = ".CLCP* 

003110 CLOSE RJE~PUNCH WITH LOCK 

003120 MOVE ® * TQ PUNCH-FLAG 

003130 #£#ELSE 

003140 IF LOCAL-~COMMAND = ™.auDI* 

003150 MOVE 994 TO TYPE 

003160 GO TO WRITE~DATA~CONTROL 

003170 ELSE : 

093180 SUBTRACT K-71 FROM S$P071700 : 
003190 — DISPLAY LOCAL-COMMAND» ™ ERROR INVALID OPERATOR ™ UPON SPO. 
003200 GO TO ASI-EXIT. | | : | | 
003210 

003220 WRITE“DATA~CONTROL. 

003230 AOD 10 TO SPO-1700-CHAR. 
003240 MOVE 10 TO MESSAGE-IN-LENGTH. 


003250 MOVE ETX=CHAR TO PRINT-OUTPUT. 
003260 | 


BURROUGHS CORPORATION 
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003270 
003280 
003290 
003300 
003310 
003320 
003330 
003340 
003350 
003360 
003370 
003380 
003390 
003400 
003410 
003420 


003430 


003440 


003450 
00 3460 
003470 
003480 
003490 
003500 
003510 
003520 
003530 
003540 
003550 
003560 
003570 


0035580/ 
003590 PACK~AND“SEND-CARDS 


WRITE DATACOMMCONTROL-DETAIL 
MOVE 000 TO TYPE. 
GO TO ASI-EXIT. 


DETERMINE “LENGTH~AND~SEND. 
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FROM BUFFER@IN. 


IF COLUMN (SPO“LENGTH) = ETX*CHAR OR RS-CHAR 


GO TO F IND“NONBLANK. 
IF SPOcLENGTH = 73 
GO TO FIND“NONBLANK. 


ADD Kk-1 TO SPO-LENGTH. 
GO TO DETERMINE “LENGTH-AND= SEND. 


F IND“NONBLANK. 


SUBTRACT K-1 FROM SPO-LENGTH. 

IF SPO*LENGTH < O01 OR 
COLUMN CSPO-LENGTH) NOT = " * 
GO TO GOT-NONBLANK. 


GO TO F INO-NONBLANK. 


GOT-NONBLANK.j 


SPO*LENGTH. 
SPO-1700~CHAR. 


ADD Kw~1 TO 
MOVE SPO-LENGTH T0 


MOVE SPOTLENGTH TO 


PUT*ETX*IN. 


ADD K-71 TO SPO-LENGTH. 
MOVE ETX-CHAR TO 
MOVE INPUT*LINES TO PRINT-OUTPUT. 
WRITE RJEDATACOMM~DETAIL 


AST~EXIT. 


SECTION 55. 


003600 PSC“SECTION. 


003610 


003620 


003630 
003640 
003650 
003660 
003670 
003680 
003690 
003700 
003710 
003720 


00 37 30 


MOVE "On 610 FLAG@“SET. 


READ@A~CARD. 


READ CARDS INTO I[NPUT“LINES AT END GO 

IF COLUMN (1) = *?" | 
MOVE NULL“CHAR TO COLUMN(1). 

MOVE O00 TO CARO-COL~PNTR. 

MOVE OO TO PNTR. 

ADD K-1 TO CARD-CT. 


COMPRESS@CARD. 


FROM BUFFER@~ 


MESSAGE-IN-LENGTH. 


COLUMN (SPO-LENGTH). 


IN. 


Ta TEST =LAST*BUFFER. 


BURROUGHS CORPORATION 
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003740 ADD K-1 TO CARD-COL-PNTR» PNTR. | 
003750 MOVE CARD“COL-PNTR TO SUB-1» SUB-2» SUB-3. 
003760. ADD K-1 TO SUB-2. 

003770 ADD K-2 TO SUB=3. 

00 3780 IF COLUMN (SUB-1) = ™ ™ AND 

003790 COLUMN (SUB-2) = ™ ™ AND 

003800 COLUMN (SUB-3) =" * 

003810 PERFORM PACK=CARD. 

00 3820 | 

003830 LAST-3-CHAR.. 

003840 

003850 IF CARD-COL-PNTR NOT > 77 

003860 GO TO BUILO-CARD-IMAGE. 

003870 IF CARD-COL-PNTR > 80 

00 3880 PERFORM PUT-IN 

003890 IF FLAG-SET = "1" 

003900 MOVE "O* TO FLAG-SET 

003910 GO TO PSC~EXIT 

003920 ELSE 

003930 GO TO READ-A-CARD. 

003940 

003950 MOVE COLUMN (CARD“COL-PNTR) TO COLUMN CPNTR). 
003960 ADD K=1 TO CARD-COL-PNTR» PNTR. 
003970 GO TO LAST-3-CHAR. 

003980 

003990 BUILD-CARD-IMAGE. 

004000 

004010 IF PNTR NOT = CARD-COL-PNTR 

004020 MOVE COLUMN (CARD“COL-PNTR) TO COLUMN CPNTR)« 
004030 GO TG COMPRESS“CARD. 

004040 TEST-LAST-BUFFER. 

004050 

004060 MOVE ™ " TQ BUFFER-FLAG-SET. 
004070 IF OQUT-BUFF-PNTR > 0 

004080 PERFORM SEND-A~BUFFER. 

004090 CLOSE CARDS WITH RELEASE. 

004100 MOVE "O™ TO FLAG-SET. 

004110 PSC-EXIT. 

004120 

004130/ 


004140 PUT-IN 


SECTION 55. 


004150 PI-SECTION. 


004160 


004170 


004180 
004190 
004200 


SUBTRACT QUT-BUFF-PNTR FROM BUFFER- SIZE GIVING BUFFER-WORK. 


SUBTRACT Krl FROM BUFFER“WORK. 

IF PNTR NOT < BUFFER“WORK 
PERFORM SENO-A-~BUFFER. 

MOVE RS“CHAR TO COLUMN CPNTR). 


BURROUGHS CORPORATION 


SMALL SYSTEMS GROUP 
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004210 
004220 
004230 
004240 
004250 
004260 
004270 
004280 


IF SUBw1 NOT = 


MOVE OO TO SUB-1. 


PUT“RECORD=- IN-SEND“BUFFER.} 


SUB~1»5» OUT~BUFFOPNTR. 
CARC“BUFFER 


ADD Kwi_ TO 
MOVE COLUMN (SUB"1) TO 
PNTR 

GO TO PUT“RECORD-~IN“SEND-BUFFER. 


004290 PI-EXIT. 


0043500/ 
004310 SEND“A~BUFFER 


SECTION 55. 


004320 SAB-SECTION. 


004330 
004340 
004350 
004360 
004370 
004380 
0043590 
004400 
004410 
004420 


ADD K-71 TO CARD-BUFF. 

MOVE 000 TO MESSAGE-OUT“TYPE. 
MOVE 002 TO STATLON“OUT. 
MOVE OUT“BUFF-PNTR TO 
ADD MESSAGE~OUT“LENGTH TO 
ADD =-1 TO OQUT-BUFF-“PNTR. 
MOVE ETX-CHAR TO 
MOVE "1" TO FLAG*SET. 
WRITE RJEDATACOMM~DETAIL 
MOVE O TO OUT-BUFF-PNTR. 


FROM 


004430 SAB“EXIT. 


004440/ 
004450 PACK-CARD 


SECTION 55. 


004460 PC-SECTION. 


004470* 
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(OUT-BUFF-PNTR). 


MESSAGE-OUT“LENGTH. 
CARO~CHAR. 


CARD“BUFFER COURS UES PNTR). 


BUFFER-OUT. 


004480*« THIS ROUTINE PACKS MORE THEN 3 SPACES IN A ROW 


004490 


004500 
004510 
004520 
004530 
004540 
004550 
004560 
004570 
004580 
004590 
004600 
004610 
004620 
004630 
004640 


MOVE 
ADD 3 10 


03 T0 CNTR-NUM. 
CARD~COL-PNTR. 


STILL “A“BLANK « 


IF CARD@“COL-PNTR < 81 AND 
COLUMN (CARD-COL-PNTR) =" " 
ADD K-71 TO 
GG TO STILL“A-BLANK. 
MOVE ESC“CHAR TO COLUMN CPNTR). 
ADD K-1 TO PNTR. 
MOVE CNTR (1) TO 
ADD K-1 TO PNTR. 
MOVE CNTR (2) TO 
ADD K-1 TO PNTR. 


COLUMN CPNTR). 


COLUMN CPNTR). 


004650 PO“EXIT «:, 


004660/ 
0046/70 SPO~ PRINT 


SECTION 60. 


CNTIR“NUM»s CARD-COL“PNITR» 


BURROUGHS CORPORATION 
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004680 


SPO"SECTION. 


004690 ADD K-1 TO SPO“HOST. 

004700 ADD MESSAGEIN@“LENGTH TQ SPO"HOST-CHAR. 

004710 IF PRINTCOUT“RED CMESSAGE"IN-“LENGTH) NOT = ETX=CHAR 
004720 ADD Kw1 TO MESSAGE“IN@“LENGTH 

0047 30 MOVE ETX“CHAR TO PRINT*OUT“RED CMESSAGE"IN“LENGTH). 
004740 IF STATION“IN = OO1 

004750 DISPLAY SPO-IMAGE UPON SPO 

004760 IF LOGGED-ON = *O" 

004770 DISPLAY XK KKK KKK XK KKK AK KX XX" BEON SPO 
004780 — GO TO SPO-EXIT. 

004790* 


000 FOR SYSTEM CONTROL MESSAGE 
001 FOR DISPLAY UPON SPO 


0046800* STATION<-IN 
004810* STATION-IN 


Hon 


004620* | | | 

004830 IF STATION“IN = 000 NEXT SENTENCE ELSE 
004840 GO TO SPO-EXIT. 

004850 IF SPO-CHAR > 03 OR 

004860 SPO“CHAR < 01 

004870 GO TO SPO-EXIT. 

004880 IF SPO"CHAR = 01 

004890 MOVE "1" TO LOGGED-ON 

004900 GO TO SPO-EXIT. 

004910 IF SPO"“CHAR = 03 

004920 MOVE 1" TO LOGGED-“ON 

004930 GG TO SPO-EXIT. 

004940* : | 

004950* SPO-CHAR = 02 TO CHANGE BUFFER SIZE. 
004960* | 

004970 IF SPO~BUFFER > 401 

004980 MOVE 401 TO BUFFER@“SIZE 

004990 ELSE | 

005000 IF SPO-BUFFER < 132 

005010 MOVE 132 TO BUFFER“SIZE 
005020 ELSE | 
005030 MOVE SPO-BUFFER TO BUFFER<SIZE. 
005040 

005050 SPO- EXIT. 

005060/. 

005070 LINE-PRINT SECTION 65. 

005080 LP-SECTION. 


IF PRINT-OUT“RED (MESSAGE-IN-LENGTH) = ETX-CHAR 


005090 

005100 SUBTRACT K-11 FROM MESSAGE-IN“LENGTH. 
005110 IF STATION“IN = 002 

005120 ADD K-11 TO PUNCH-BUFF 

005130 ADD MESSAGE>- IN-LENGTH TO PUNCH= CHAR 
005140 ELSE 


RISERS rrr eg 


LEST ESS SS TEE PAY 
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005150 
005160 
005170 
005180 
005190 
005200 
005210 
005220 
005230 
005240 
005250 
005260 
005270 
005280 
005290 
005300 
005310 
005320 
005330 
005340 
005350 


005360 


005370 
005380 
005390 
005400 


005410 


005420 
005430 
005440 
005450 
005460 
005470 
005480 
005490 
005506 
005510 
005520 
005530 


ADD K-1 TO PRINT-BUFF 
ADD MESSAGE“IN“LENGTH TO PRINT“CHAR. 
MOVE K-12 TO IN“BUFF<“PNTR» LINE“PNIR.. 
MOVE SPACE TO QUTPUT-LINES. 
CREATE“OUTPUT“LINE. 
IF PRINT“OUT“RED CIN“BUFF“PNTR) = ETX“CHAR 
GO TO CHECK“LINE“PNTR. ~ | 
IF PRINT“OUT“RED CIN“BUFF“PNTR) = ESC*CHAR 
PERFORM PUT-BLANKS af 
GO TO CHECK-DEVICE-LIMIT. 
IF PRINT“OUT-“RED CIN“BUFF<PNTR) = RS“CHAR 
PERFORM WRITE“LINE 
GO TO CREATE-OUTPUT-LINE. | 
MOVE PRINT“OUT“RED CIN“BUFF-PNTR) TO 
PRINT“LINE CLINE“PNTR). 
ADD K-1 TO LINE-PNTR» IN-“BUFF<-PNTR. 
CHECK“DEVICE“LIMIT. 


IF STATION“IN = 002 AND 
LINE“PNIR > 80 
PERFORM WRITE*LINE> 

ELSE _ 

IF STATION-IN = 

 LINE-PNTR > 133 
PERFORM WRITE“LINE. 

IF PRINTTOUT“RED CIN“BUFFTPNTR) = ETX*CHAR 
IN“BUFF<“PNTR > MESSAGE@IN“LENGTH OR 
IN“BUFFPNTR > BUFFER*SIZE | 
GO TO CHECK“LINE-PNTR. 

GO TO CREATE“OUTPUT“LINE. 


003 AND 


CHECK*LINE=PNTR. 


‘IF LINE-PNTR > 1 


PERFORM WRITE*LINE. 


005540 LPwEXIT.. 


0055507 
005560 PUT“BLANKS 


~—©005570 PB-SECTION. 


005580 


005590 


005600 


005610 


SECTION O65. 
ADD K-1 TO IN“BUFFTPNTR. 
MOVE PRINT-OUT“RED CIN- BUFF-PNTR) TO CNTR 


ADD K~1 TO IN“BUFFOPNTR. 
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005620 
005630 


005640 


MOVE 
ADD 


ADD 


005650 PB-EXIT. 


005660/ 


PRINT*OUT“RED CIN“BUFF-PNTR) 


CNTR-“NUM TO 


Kol 


005670 WRITELINE 
005680 WL=-SECTION. 


005690 
005700 
005710 
005720 
005730 
005740 
005750 
005760 
005770 
005780 
005790 
005800 
005810 
005820 
005830 
005840 
005850 
005860 
005870 
005880 
005890 
005900 
005910 
005920 
005930 
005940 
005950 
005960 
005970 


005980 


005990 
006000 
006010 
006020 
006030 
006040 
006050 
006060 


006070 


0060 80 


IF 


IF 


If 


IF 
IF 
If 
IF 


STATION@“IN = 
PRINT*FLAG = 


TO IN*BUFF-PNTR. 


LINE“PNTR. 


SECTION 65. 


003 AND. 


OPEN OUTPUT RJE-PRINT 


MOVE 


STATION“IN = 
PUNCH@FLAG = 


“x= 0 
002 


AND 


OPEN OUTPUT RJE-PUNCH 


MOVE "X" TG 


STATION“IN = 002 
ADD K-1 TO PUNCH<CT 
WRITE 


CARRTAGE~CONTROL 
CARRIAGE“CONTROL 
CARRIAGE~CONT ROL 
HOLD-CC 


PRINT“FLAG. 


PUNCH-FLAG. 


COMPANY CONFIDENTIAL 
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10 
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CNTR (2). 


PUNCH-DETAIL FROM QUTPUT-LINES 
GO TO RECORD-“WRITTEN. | 
ADD K-71 TO PRINT-CT. 


CHECK~CARRIAGE~CONTROL. 


tow 


NH 


NOT = 99 


wor 


wi" 


now 


WRITE PRINT-DETAIL FROM 


GO TO RECORD-WRITTEN. 


CARRTAGE~CONTROL 
CARRIAGE*CONTROL - 
CARRITAGE~CONTROL 
CARRIAGE~CONTROL 
CARRTAGE~CONTROL 
CARRIAGE~CONTROL 
CARRIAGE~ CONTROL 
CARRIAGE~CONTROL 
CARRIAGE-CONTROL 
CARRIAGE~ CONTROL 
CARRITAGE~CONTROL 
CARRIAGE-CONTROL 
DISPLAY “CARRIAGE CONTROL CHARACTER INVAILD™ UPON SPO 


MOVE "i" TO 


houonbonmow wow 


i) 


Hi 


Hom 


wae 
all * Tad 
acer 
wf 
ee pf re 
we ee 
wae 
ry 
Ie id 
we 
Kf 
wy 


MOVE 
MOVE 
MOVE 


LINE“CHAR BEFORE ADVANCING HOLD-CC 
LINES 


MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 


00 
O01 


02 


CARKTAGE*CONTROL 


TO 
TO 
TO 


HOLD-CC 
HOLO~-CC 
HOLDO-CC 


HOLD-CC 


HOLD-CC 


HOLD-CC 


HOLD-CC 
HOLD-CC 
HOLD-CC 
HOLD-CC 
HOLD-CC 
HOLD=CC 


HOLO-CC ELSE 
HOLO- 


HOLOD-CC. 


CC 


ELSE 
ELSE 
ELSE 
ELSE 
ELSE 
ELSE 
ELSE 
ELSE 
ELSE 
ELSE 
ELSE 
ELSE 


10-17 


BURROUGHS CORPORATION : | COMPANY CONFIDENTIAL 


SMALL SYSTEMS GROUP 
SANTA BARBARA PLANT 


B1700 RJE/DCH 
P.S. 2212 5272 


006090 GO TO CHECK“CARRIAGE-CONTROL. 
006100 WRITE PRINT“DETAIL FROM LINE“CHAR BEFORE ADVANCING CHANNEL 
006110 | HOLO“CC. 
006120 

006130 RECORD-“WRITTEN. 

006140 | 

006150 MOVE 99 TO HOLD-CC. 

006160 MOVE O01 TO LINE-PNTR. 

006170 ADD K~1 TO IN“BUFFO-PNTR. 

006180 MOVE SPACE TO OUTPUT“LINES. 

006190 

006200 WL-EXIT. 

006210/ 

006220 INITIALIZE-“RIN SECTION 99. 

006230 IR“-SECTION. 

006240 

006250 MOVE 2272 TO ESC. 

006260 MOVE 203a TO ETX. 

006270 MOVE a1£9 TO RS. 

006280 MOVE 23002 TO NULL. | 

006290 MOVE SPACE 10 CARD-“BUFFER=OUT> 

006300 OUTPUT“LINES» 

006310 LOCAL“COMMAND » 

006320 INPUT“LINES. 

006330 

006340 OPEN INPUT 

006350 RJE“SPO-OUT 

006360 RJE“PRINT“QUT >» 

006370 RJE“SPO"IN 

006380 OUTPUT 

006390 RJE-“DATA "COMM 

006400 7 DATA~COMM~CONTROL. 

006410 ZIP ZIP-OCH. 

006420 IR“EXIT. , 

006430/ 

006440 DISFLAY- COUNTERS SECTION 15.. 

006450 DS“SECTION-98. | 

006460 DISPLAY CARD-CT» ™ TOTAL CARDS READ@ UPON SPQ. 
006470 DISPLAY PRINT“CT» ™ TOTAL LINES PRINTED" UPON SPO. 
0064380 DISPLAY PUNCH@“CT» =" TOTAL CAROS PUNCHED™ UPON SPO. 
006490 DISPLAY “«*«see BUFFER COUNTS ***#*#*«@" UPON SPO. 
006500 DISPLAY CARD“B8UFF» ™ CARDS™ UPON SPO. 

006510 DISPLAY PRINT“BUFFe ™ PRINTER® UPON SPO. 

006520 DISPLAY PUNCH“BUFFs ™ PUNCH" UPON SPO. 

006530 - DISPLAY "“*x*#*mee CHARACTER COUNT *«**«*ee" UPON SPO. 
006540 DISPLAY CARD“CHAR»> ® CARDS™ UPON SPO. 

006550 DISPLAY PRINI-CHAR> * PRINTER™ UPON SPO. 
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006560 DISPLAY PUNCH“CHARs» ™ PUNCH™ UPON SPQ. 

006570 DISPLAY “*eeeee SPQ COUNTS **«*ee" UPON SPO. 

006580 DISPLAY SPO-1700» ™ B-1700 SPO ENTRIES™ UPON SPO. 
006590 DISPLAY SPO-HOST» ™ SPO FROM HOST ENTRIES™ UPON SPO. 
006600 DISPLAY SPU-1700-CHAR> * Br1700 CHARACTERS™ UPON SPC. 


006610 DISPLAY SPO-HOST-CHAR» “™ HOST CHARACTERS™ UPON SPO. 
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PROCEDURE: PACK.CARD 


THIS PROCEDURE IS REFERENCED ONLY BY THE PROCEDURE 
"READ-PACK.AND.SEND. CARDS*® 


THIS PROCEDURE HANDLES THE PACKING OF ALL CARD IMAGES FOR THE 
PROGRAM. THE PROCEDURE “"PACK-BLANKS™ IS REFERENCED BY THIS . 
PROCEDURE. SINCE ALL PACKED CARD IMAGES WILL NEVER BE LONGER THAN 
THE GRIGINAL CARD IMAGE» ALL PACKED CARD IMAGES ARE FORMED WITHIN 
THE VARIABLE WHICH HOLDS THE ORIGINAL CARD IMAGE C*CARD™). THE 
VARIABLE “CARD.COL-POINTER™ IS USED HERE AS THE POINTER FOR THE 
UNPACKED CARD> WHILE THE VARIABLE "PNTR® IS USED AS THE POINTER FORZ 
THE PACKED CARD IMAGE. THESE VARIABLES ARE INITIALISED AT THE STARTZ 
OF THE PROCEDURE. A LOOP IS THEN ENTERED AND IF THE END OF THE CARD% 
IS NOT ABOUT TO BE REACHED» THE NEXT THREE CHARACTERS ARE EXAMINED % 
TO SEE IF A BLANK FIELD HAS BEEN FOUND. IF SO» THE FIELD IS 
COMPRESSED BY A CALL TO *"PACK.BLANKS"™. THEN IF WE AGAIN ARE NOT AT 
THE END OF THE CARD THE NEXT CHARACTER CWHICH WILL ALWAYS BE A yA 
NON-BLANK OR PART OF A FIELD OF BLANKS NOT LARGE ENOUGH TO BE ~ y 4 
COMPRESSED) WILL BE PACKED. THIS LOOP CONTINUES UNTIL THE END OF y 4 
THE CARD IS REACHED WHEREUPON THE PROCEDURE I5 EXITED WITH THE k 
4 
yA 
yA 
yA 


NMNNRNM RRR NNR TN MR 


> | 


PACKED CARD IMAGE PRESENT IN THE VARIABLE “"CARD™» DELIMITED BY THE 
VARTABLE SEN IR 


Rr RMN NM NR RNM NMR NM RRM RM NMNM WKN RW re MP PW HE 


LUULLLUL ALLL UL LL AZUL UL LL LLL LL UL LLL UL ALL UL ALLL LAL AL ULLAL LUA ALAALULLL 
2 % 
PROCEDURE PACK.CARD; 
PNTR ! CARD.COL.POINTER It 03 
00 COMPRESSION.LOOP FOREVER: | 
IF CARD.COL.POINTER LEQ CCARD.SIZE - 3) 
THEN IF SUBSTRC(CARD-CARD.COL.POINTER»3) EQL ™ * 
THEN PACK. BLANKS? 
IF CARD.COL.POINTER LSS CARD.SIZE 
THEN DO PACK.CHARACTER? 
| IF PNTR NEQ@ CARD.COL.POINTER 
THEN COLUMNCPNTR) § COLUMNCCARD.COL-POINTER)S 
BUMP PNTR3 | | 
BUMP CARD.COL-POINTERS 
END PACK.CHARACTER? 
IF CARD.COL-POINTER GEQ@ CARD.SIZE 
THEN RETURNS 
END COMPRESSION.LOOP; 
END PACK.CARDS 
TSSESELELSLSLESECESSLLE ETL ESeLeCetelecetetetes sees eset et eeetetet ese eee. 
& PAGE 
x z 
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% HEADER [S FIRST CLEARED AND THE STATION VALUE SET TO "002" (SEE ys 
4 DOCUMENTATION). THE LENGTH FIELD OF THE HEADER OF THE OUTPUT BUFFERZ 
zx IS THEN SET AND THE BUFFER QUEVED. THE BUFFER IS THEN CLEARED CIT*S2 
yA POINTER RE“INITIALISED) AND A FLAG SET TO INDICATE THAT A BUFFER pA 
ys WAS TRANSMITTED. CNOTE: ALL PACKED CARD IMAGES WHEN PLACED IN THE 2% 
ys BUFFER HAVE AN “RS™ CHARACTER ATTACHED AT THEIR END» AND THEREFORE »% 
yA WHEN THE LENGTH FIELD IN THE HEADER OF THE BUFFER IS SET» THE VALUEZ 
h IS ONE LESS THAN THE CURRENT BUFFER POINTER VALUE SO THAT THIS LAST2Z 
y 4 "RS™ CHARACTER WILL NOT BE TRANSMITTED. SEE DOCUMENTATION) © ri 
yA to 


yA 


MELEE ELLA L LEAL LLL ULL LLL LL LLU LL AL ELA A LEU LL ELLEN LEELA LLL ALL LLLLL AZ 
| he 


PROCEDURE TRANSMIT. BUFFER; 


OUTPUT.BUFFER-HEADER # "0000000000"; 

OUTPUT.BUFFER.STATION § "002"; 

OUTPUT.BUFFER.LENGTH #§ DECIMALCOUTPUT.BUFFER.POINTER - 14); 
WRITE DATA-COMM. QUEUECOUTPUT.BUFFER)>: 

OUTPUT.~BUFFER.POINTER 1¢ 05 

BUFFERWAS~TRANSMITTED 2t 1; 


END TRANSMIT .BUFFER; 
SETESETELETETELETERET TTT LTELESTETTTEETTEEETTT ATE TETETETETETETETEEETTETE 


v4 


NwMWmMN MRNNMR NM RRM MN NM PN 


es 


UPON ENTRY INTO THE PROCEDUREs THE LENGTH OF THE CURRENT BUFFER 


LLLLULLL ULLAL ULLAL LAL UE AGEL A LUL LLU LE LULL KLEE UL UE LULL ELLE EAEEAL LULL LLL 


he 


EETSITTELELESETETESETETERTEETETT TET ETETELT ETT ECETATETEEEETTEEE TET EEE 


PROCEDURE: PACK. AND. SEND. BUFFER 


THIS PROCEDURE IS REFERENCED ONLY BY THE PROCEDURE 
"READ»PACK.AND-SEND.CARDS” 


ALL PACKED CARD IMAGES ARE ENTERED INTO A BUFFER IN THIS PROCEDURE. 


BEING FORMED IS CHECKED AND IF THERE IS NOT ENOUGH ROOM IN THE 
BUFFER FOR THE CURRENT CARD IMAGE THE BUFFER IS TRANSMITTED AND 


THEN CLEARED VIA A CALL TO THE PROCEDURE "TRANSMIT.BUFFER™. THE 
CARD IMAGE IS THEN ENTERED IN THE CLEARED BUFFER AND THE Burren 


PGINTER UPDATED APPROPRIATELY. 


NMNRRNM RNR RWW NM MN NR NR 


y4 ‘ 


PROCEDURE PACK.AND.SEND. BUFFERCPACKED.CARD); 


FORMAL PACKED.CARD CHAR VARYING; 
If (BUFFER-SIZE =~ QUTPUT.BUFFER.PGINTER) LSS 
LENGTHCSUBSTRCPACKED-CARD»s0)) 
THEN DO TRANSMIT.CURRENT.BUFFER, 
TRANSMIT. BUFFERS 
END TFRANSMIT.~CURRENY.BUFFERs 


SUBSTRCCARD. BUFFER »OUTPUT. BUFFER-POINTER) | SUBSTRCPACKED.CARD?0)3 
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% CARDS: LABELLED "RJE/CARDS*"s» THIS CARD FILE HANDLES ALL INPUT CARDS2Z 

% ENTERED BY THE B1700 RJE USER. THIS FILE IS REFERENCED ONLY IN THE 2% 

% PROCEDURE NAMED "READ.PACK-AND.SEND.CARDS™. (NOTE: IN ORDER RO % 

% OPEN AN RJE CARD FILE THE CONTROL SPO MESSAGE ™.READ™ MUST BE % 

z ENTERED FROM THE SPO TO THE PROGRAM “RJE/SPO.TEST™.) ) 
% x 

% PRINT: LABELLED “*RJE/PRINT*» THIS FILE HANOLES THE PRINTING OF ALL 2% 

% RECORDS FOR THIS PROGRAM. IT IS REFERENCED ONLY IN THE PROCECURE % 

Zz "OUTPUT. .LINE”. | x 

% | | % 

z PUNCH: LABELLED "RJE/PUNCH™» THIS FILE HANDLES THE PUNCHING CF ALL Z 

yd RECORDS FOR THIS PROGRAM. IT IS REFERENCED ONLY IN THE PROCEDURE 3 

2 "QUTPUT.LINE™. | ya 
v4 Z 


YUU CII II III IIIA NII IAI AAI IAI AAI IA AAI I IAAI AI AI IAI A A AA AN IAM AIA IAI A IAI AIS 
h | | . % 
LLLALALL LALLA ELLE ULLAL LLL ALLELE LEUU LLU E ULL L LLL AL ALLELE LLU L LEAL 
R PAGE | | 


DEFINE : 

CHAR AS ACHARACTERE>» 

ESC Rs AS #A27QE » 

ETX AS #20 3a8# » 

RS AS HALE AS» 

CARD-SIZE 7 AS HBO #>» 

LINE .SIZE AS #1328» 

NUL AS #AQVAH? 
LUA ULLL ALLL ALLL LALLA AL LLU LL LK ULL ZAZA LL UL AU AL ALLL ALLY LULL UN EL LALLA LY 
FILE 


SPO.OUT.QUEUEC(LABEL = "RJE"/"SPO.OUT", DEVICE = QUEUE- 
RECORDS = 411/1» OPEN.OPTION = INPUT),> 

PRINT.OUT.QUEUECLABEL = "RJE"/"PRINT.OUT"» DEVICE = QUEUE, 
RECORDS = 411/1+ OPEN.OPTION = INPUT)> 

SPO.INPUT.QUEUECLABEL = "RJE"/"SPO.IN"» DEVICE = QUEUE» 
RECORDS = 80/1» OPEN-OPTION = INPUT)> 

DATA-COMM.QUEUVECLABEL = "RJE"/"DATA.COMM™s DEVICE = QUEUE, 
RECORDS = 411/1> OPEN.OPTION = OUTPUT), 

CONTROL. QUEUECLABEL = “DATA.COMM"/“CONTROL™» DEVICE = QUEUE, 
RECORDS = 411/1+ GPEN.OPTION = OUTPUT)> 
CARDSC(LABEL = "RJE"/"CARDS"» DEVICE = CARD»e RECORDS 

| OPEN.OPTION = INPUT)» | 
PRINTCLABEL = "RJE"/™PRINT"s DEVICE = PRINTER OR BACKUP DISK» 
RECORDS = 132/1+ OPEN.OPTION = OUTPUT+ LOCK)» 
PUNCHC(LABEL = "RJE"/*PUNCH"s DEVICE = PUNCH OR BACKUP DLSK> 
RECORDS = 80/1» OPEN-OPTION = OUTPUT+ LOCK); | 
LEAR LL LL UALL URAL ALLL ALLL LEAL AL AULL AU LEAL UL LA LLLL ALLL ZLAL ALLL ALLL LALLA ALL 


SEGMENTOMAIN)> 
DECLARE 


80/15 


eHRROUGMSTEBSPGRADEON 
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SAMPLE UPL INPUT/OUTPUT PROGRAM 


se caliehdiediseceei denen tend aiebiicrersicbeuseteensiakesbaveciasiiadans 
% 
PROGRAM =: I/0.PROGRAM. 


THIS PROGRAM INTERFACES WITH THE PROGRAMS *"RJE/SPO.TEST™ AND 
"RJE/DCH™. 


NMR NRHN FT KK BR 


EXCEPT FOR THE ACCEPTING OF INPUT SPG MESSAGES» ALL B1700 INPUT 
AND OUTPUT FOR THE RJE SYSTEM IS HANCLED BY THIS PROGRAM. 


ot 


LLLLUAL LE LL LLL LLL LULL LALLA LLL AAA LULL LALLA LUA AU LAL LL ELLE AL ALAL ALLE 
FILES: 


SEVEN FILES ARE MAINTAINED BY THE PRCGRAM. 


NMRNN RR 


SPO.QUT. QUEUE: LABELLED “RJE/SPO.OUT"» THIS QUEUE FILE HANDLES ALL 1 
SPO AND CONTROL MESSAGES QUEUED BY THE PROGRAM "RJE/DCH". THIS FILE2 
IS READ IN THE PROCEDURE “"CONTROL.LOGP™ ANDO THE RECEIVED MESSAGES % 
PROCESSED IN THE PROCEDURE *"PROCESS.~QUTPUT.~SPO.MESSAGE™. % 
—— | | | | ya 
PRINT. OUT.QUEUE: LABELLED "RJE/PRINT.OUT"» THIS QUEUE FILE HANOLES 2 
ALL OUTPUT PRINT AND PUNCH RECORDS QUEUED BY THE PROGRAM “"RJE/DCH".Z 
THIS QUEUE IS READ IN THE PROCEDURE “CONTROL.LOOP™ AND THE RECEIVEDZ 
MESSAGES PROCESSED IN THE PROCEDURES "PROCESS.~PRINT.OR-PUNCH.BUFFER™ 
AND "OUTPUT.LINE*™. | 4 

% 
SPO.INPUT.QUEUE: LABELLED "RJE/SPO.IN"» THIS QUEUE FILE HANDLES ALLZ 
INPUT SPO MESSAGES QUEUED BY THE PROGRAM *RJE/SPO.TEST™. THIS %, 
QUEUE IS READ IN THE PROCEDURE *CONTROL.LOUP*™ AND THE RECEIVED yd 
MESSAGES PROCESSED IN THE PROCEDURE ®"PROCESS.~INPUT~.SPO-MESSAGE™. % 


DATA-~COMM.QUEUE: LABELLED "RJE/DATA.~COMM™,» THIS QUEUE FILE HANOLES 
ALL CARD AND SPO BUFFERS QUEUED BY THIS PROGRAM FOR THE PROGRAM 
"RJE/DCH". THIS QUEUE IS REFERENCED IN THE PROCEDURES 
"TRANSMIT.BUFFER™ AND “PROCESS.INPUT.~SPO.MESSAGE™. 


CONTROL. QUEUE: LABELLED “DATA»~COMM/CONTROL™» THIS FILE HANDLES ALL 
CONTROL MESSAGES SENT BY THIS PROGRAM TO THE PROGRAM *RJE/OCH". 
THIS QUEUE IS REFERENCED ONLY IN THE PROCEDURE 


"PROCESS. INPUT.~SPO-MESSAGE™. 


Perl PERE REN NM RE HK Pe 


mm NM re rr RR RN 
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O01 CONTROL.BITS> 


O02 CARD.FILE.PRESENT  ~BITCL)>» 
O2 BUFFER.WAS-~TRANSMITTED | BITC1)> 
02 LOGGED.ON | BITC1)>, 


LL LL ALL LULL AAAI II III III IAI AI AI II III II III AAI III IAI AI II IIIA 
O01 POINTERS. AND-PARAMETERS» 


O2 INPUT.BUFFER.POINTER | FIXED, 
O02 OUTPUT.BUFFER.~POINTER : 3 FIXEDe - 
O2 PRINT.-LINE.POINTER FIXED» 
O02 CARD.COL.~POINTER FIXED» 
O2 PNTR | FIKED>» 
02 BUFFER.SIZE FIXED» 


LELLULL LLL AZ ARAL ALLEL AL ALLL LULL LALA ALLL AL KL LLUL UL LEAKE REAL REEL ALL EALALAZ 
O1 INPUT .BUFFER» 


02 INPUT.BUFFER.HEADER CHARC10)> 
03 INPUT.BUFFER.~STATION CHARC3)» 
05 INPUT.BUFFER.-LENGTH CHARC4)» 

| — 03 INPUT.BUFFER.TYPE CHARC3)» 

O02 PRINT.BUFFER CHARC401)> 


LU LLLEUG LEAL ELLE LLL ALGAE LLL LLL LLL LULL LL UL UL UL ULLAL LLU LAL LEU L LULL ALLAN 
01 DUTPUT.BUFFER> 


02 OUTPUT.~.BUFFER.~HEADER CHARC10)>» 
03 OUTPUT. BUFFER.STATION | CHARC3)> 
03 OUTPUT. BUFFER.LENGTH CHARC4)>» 
03 OUTPUT. BUFFER.TYPE CHAR(3)> 

O02 CARD.BUFFER ~ CHARC401)>» 


RELLURLEULERERELER EE LEELALERARRLKREEARER REAR EEREREERREEEEEER LE LELEEL ALE 
O01 OUTPUT.LINES» | 


U2 PRINTsLINE | CHAR 133)> 
03 CARRIAGE — -BITCB)s 
03 LINE CHARC132)6 


LL LLLUULG ALLELE LULU UII HAI AIIM IAI MIA III AMAA ANIA AIIM IAI AAAS. 
O01 INPUT.LINES> | 
02 CARD CHAR(80)> 
03 COLUMNC80) —CHARGL)F | 
LY ULLULLL LULA MLM MALIA III IAAI IMAM AI IIIA IAA AA IAA IAI AAI AIAN AMAA. 
SEGMENT(C CARD. INPUT)3 | 


RR en ee ae aT ene 
PROCEDURE: TRANSMIT. BUFFER | e 
THIS PROCEDURE IS REFERENCED BY THE PROCEDURES aq 
"PACK. AND.SEND.BUFFER™ AND "READ-PACK. AND. SEND.CARDS". %. 
ALL CARD BUFFERS ARE SENT TO THE “RJE/DCH™ PROGRAM VIA THIS ; 

% 


PROCEDURE. WHEN THE PROCEDURE IS ENTERED» THE TEN CHARACTER MESSAGE 
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BUMP OUTPUT.BUFFER.POINTER BY LENGTHCSUBSTR¢PACKED.CARD+ 0) 3 
END PACK~«AND.-SEND. BUFFER; 
LLUU LULU LALA III II IIA IIIA IIIA NI MAI MII MAI I AI IIIA NAAM AI A 
& PAGE 


z 
LULL ALLY ALLL LAL LAL LAL LL LLL MLL LZ LULL ARLE LL LL LR LULL LEZ LU LLL Z MLE LK UR LLL E 


zt 

% 

x 2 

%Z PROCEDURE: PACK.BLANKS z 
a | | 4 
: Z THIS PROCEDURE IS REFERENCED ONLY BY THE PROCEDURE “PACK.CARC™ % 
v4 x 
‘% = WHEN PACKING CARD IMAGES» FIELOS OF THREE TO NINETY-NINE z 
Z CONSECUTIVE BLANKS WILL BE PACKED INTO A THREE CHARACTER FIELD % 
| % (CSEE DOCUMENTATION)» AN ESCAPE CHARACTER C("ESC™) FOLLOWED BY ThO 4% 
% NUMERIC CHARACTERS INDICATING THE NUMBER OF BLANKS COMPRESSEC. % 
| % THEREFORE WHILE PACKING A CARD» WHEN A FIELO OF AT LEAST THREE z 
| % BLANKS IS DETECTED» THIS PROCEDURE IS CALLED TO COUNT AND PACK THE % 
| % ENTIRE BLANK FIELD. THE PROCEDURE CONSISTS OF A LOCP WHICH EXAMINES2 
| % A CHARACTER AND BUMPS POINTERS UNTIL THE END OF THE CARD OR A % 
| %  NON@*BLANK CHARACTER IS FOUND» AT WHICH TIME THE LOCP IS EXITED AND % 
| % THE THREE CHARACTER FIELD ADDED TO THE PACKED CARD IMAGE. THE s 
%Z POINTER FOR THE PACKED CARD FIELD IS THEN UPDATED AND THE PROCEDUREZ 
~ EXITED. | % 

z | i 


LLLLULLLULL ALLL LUI TILIA I IAAI MI AIA IAAI A IIIA IIIA IIA AI AIIM AI IAAI AAA 
LEULLLLL ALLL ALLL LALA AL ALLA LA LL UR UL LL AUAL ERLE UL AULA LAU AL LAL LL UL UL UZAY 
PROCEDURE PACK.~BLANKS? 

DECLARE COUNTER ~ FIXED; 

COUNTER 1 33 | 

BUMP CARD-COL-POINTER BY 33 

DO COUNT-AND.PACK. BLANKS FOREVER? 

IF CARD.COL-POINTER LSS CARD.SIZE 
THEN IF COLUMNCCARD.COL.POINTER) EQL ™ *@ 
THEN 00 INCREMENT. VARTABLESs 
BUMP COUNTER? 
BUMP CARD.COL.POINTER?S 
END INCREMENT.VARIABLES3 | 
ELSE UNDO COUNT.AND.PACK-BLANKS3 
ELSE UNDG COUNT. ANDePACKe BLANKS? 2% 

END COUNT. AND.PACK.~BLANKS3 

SUBSTRCCARD»>PNTR»3) 1 ESC CAT DECIMALCCOUNTER-2)3 

BUMP PNTR BY 33 
END PACK.«BLANKS? 
LLLL LL LULL LEELA UMMM MI AIA MAI IAAI II AAAI I IAI III AIAN ASMA IAI IN AAAI 
& PAGE | | 
x a : 
LELEUL LULL LL ULL LLU LULL EL AL ULL LALLA UAL ULLAL ALLA AU ALLA ELA L LEE LULL UEL ALLY 
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Ce hie Sie Ree ee ie em ese eee Vm eN slate a Age Ree ine nn to elite nes ar miiay eee 
PROCEDURE: READ.PACK.AND-SEND.CARDS 


THIS PROCEDURE IS REFERENCED ONLY BY THE PROCEDURE “CONTROL. LooP™. 


READING AND PACKING OF CARDS AND TRANSMITTING OF CARD BUFFERS IS 
CONTROLLED BY THIS PROCEDURE. INITIALLY» THE VARIABLE 
"BUFFEReWAS-TRANSMITTED™ WHICH INDICATES WHEN A BUFFER HAS BEEN 
TRANSMITTED IS CLEARED. A LOOP IS THEN ENTERED AND A CARD IMAGE 
READ. IF AN END“OF“FILE WAS DETECTED BY THE READ» THE CARD FILE IS 2% 
CLOSED» THE FLAG INDICATING A CARD FILE WAS PRESENT FOR THE PROGRAMZ 
RESET» THE CURRENT BUFFER CIF ANY) TRANSMITTED BY A CALL TO THE 
PROCEDURE “TRANSMIT.BUFFER™» AND THE PROCEDURE EXITED. IF AN 
EXCEPTION CONDITION WAS NOTED DURING THE LAST READ AND A "2?" [IS IN 
THE FIRST COLUMN OF THE CARD» INDICATING A CONTROL CARD WAS READ» 
THE "2" IS CHANGED TO A NUL CHARACTER IN ACCORD WITH THE RJE 
CONVENTIONS. THE CARD IMAGE JUST READ IS THEN PACKED BY A CALL TO 
THE PROCEDURE ™PACK.CARD™. THE PACKED CARD IMAGE AND AN *RS* : 
CHARACTER IS THEN PLACED IN A BUFFER BY A CALL TO THE PROCEDURE 
"PACK. AND. SEND~-BUFFER™. LASTLY THE VARIABLE INDICATING A BUFFER 
HAS BEEN TRANSMITTED IS CHECKED AND IF A BUFFER HAS JUST BEEN 

SENT THE PROCEDURE IS EXITED OTHERWISE THE LOOP CONTINUES UNTIL A 
BUFFER IS TRANSMITTED. 
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% 
PROCEDURE READ.~PACK-.AND.SEND.CARDSs 
BUFFER.WAS~TRANSMITTED # O03 
: DO READ.LOOP FOREVER; 
) READ CARDSCCARD)> 
ON €0F 00 CLOSE.FILES 
CLOSE CARDS RELEASES 
CARD.FILE-PRESENT 1 Of 
IF OUTPUT.BUFFER.PGINTER GTR O 
| THEN TRANSMIT.BUFFER> 
RETURNS — 
END CLOSE.FILE> 
ON EXCEPTION 
IF COLUMN(CO) EQL *2" 
THEN COLUMNCO) ! NUL? | 


NRRMRRNM NNR MK MN NM NR KW KW NW 


PACK .CARD? 
PACK. AND. SEND.BUFFERCSUBSTRCCARD»0-PNTR) CAT RS)3 
IF BUFFER.WAS.TRANSMITTED 
THEN RETURNs 
END READ.LOOP; ~ 
CG END READ.PACK.AND.SEND.CARDS; 


om 
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SEGMENT COUTPUT.PRINT.~OR.~PUNCH); 

ys yA 
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PROCEDURE: QUTPUT.LINE 


THIS PROCEDURE IS REFERENCED ONLY BY THE PROCEDURE 
"PROCESS .PRINT.~OR~PUNCH. BUFFER™. 


WHEN THIS PROCEDURE IS ENTERED THERE EXISTS IN THE VARIABLE. 
"PRINT.LINE™» A RECORD OF SIZE EQUAL TO THE VALUE OT [THE VARIABLE 
"PRINTe«-LINE-PCINTER™. IF THE VALUE OF THE STATION IN THE BUFFER 
HEADER IS "002" INDICATING THE RECORD IS A PUNCH RECORD THE RECORD 
IS PUNCHED» OTHERWISE THE RECORD IS ASSUMED TO BE A PRINT RECORD 
AND IS SO OUTPUT. FOLLOWING OUTPUTTING OF THE RECORD» THE POINTER 
FOR THE OUTPUT DATA AREA IS CLEARED» THE OUTPUT DATA AREA ITSELF 

yA RE“INITIALISED TO BLANKS» AND THE POINTER FOR THE CURRENT INPUT 

he BUFFER BEING UNPACKED INCREMENTED SO THAT FHE "RS" DELIMITER FOR. 

yA THE RECORD JUST OUTPUTTED MAY BE DISCARDED. (NOTE: NOT SHOWN IN 

ys THIS PROCEDURE ARE CONSTOERATIONS FOR THE RJE CARRIAGE-CONTREL 

he CONVENTIONS. IF THIS PROGRAM WERE TO RUN UNDER RJE» WHEN A PRINT 

v4 RECORD IS PRESENT» A CARRIAGE CONTROL VALUE FOR THE RECORD WOULD BE 
he PRESENT IN FHE VARIABLE “"CARRIAGE™. THE VALUE FOR THIS VARIABLE 
rs 

% 

ys 

he 

yA 

: 
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WOULD HAVE TO BE DETERMINED AND THE APPROPRIATE WRITE STATEMENT 
EXECUTED.~} THIS CARRIAGE CONTROL CHARACTER WOULD NOT BE OUTPUTTED» 
THE ACTUAL RECORD TO BE PRINTED WOULD BE PRESENT IN THE VARTABLE 
"LINE™.CSEE DOCUMENTATION). 
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PROCEHURE OUTPUT.LINE>s 
IF INPUT.BUFFER.-STATION EQL "002" 
THEN DO PUNCH.ITs 
WRITE PUNCHCSUBSTRCPRINT. LINE» O»CARD. SIZE))3 
END PUNCH.IT>» 
ELSE DO PRINT.ITs | 
WRITE PRINT SINGLECSUBSTRCPRINT.LINE»sOoLINE.SIZE) )> 
END PRINT.ITs | 
PRINT.LINE.-POINTER JU O> 
BUMP INPUT.BUFFER.POINTERs, 
PRINT.LINE § ™ "> 
END OUTPUT.LINE> 
SETETELE TET ELTL ELSE SSLELeL eset ete ler eles ete tater ester tet eee tet ee tte tte 
& PAGE 


% | | | : % 
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PROCEDURE: PROCESS.PRINT .ORe-PUNCH.BUFFER 
THIS PROCEDURE IS REFERENCED ONLY BY THE PROCEDURE “CONTROL.LOOP™. 


4 
yA 
4 
ke 
| ps 
ALL UNPACKING OF OUTPUT BUFFERS ARE HANDLED BY THIS PROCEDURE. IT 2% 
IS CALLED WHENEVER A NEW PRINT OR PUNCH BUFFER IS RECEIVED. THE 4 
POINTER FOR THE BUFFER IS THEREFORE RE-INITIALISED WHEN THE yA 
PROCEDURE IS ENTERED. THE BUFFER IS THEN UNPACKED CHARACTER BY & 
CHARACTER UNTIL AN "RS* OR "ETX™ CHARACTER IS FOUND AT WHICH TIME % 
THE PORTION OF THE BUFFER JUST UNPACKED IS QUTPUT. yA 
THE "DO" LOOP NAMED “PUT.BLANKS™ IS USED TO UNPACK ys 
FIELDS OF COMPRESSED BLANKS WHILE THE LOOP "PUT.CHARACTER™ IS USED Z 
TO UNPACK SINGLE CHARACTERS. 4 

ho 

he 
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“ , | m 
PROCEDURE PROCESS.PRINT.OR.~PUNCH.BUFFER; 
INPUT.BUFFER.POINTER ¢ 03 
DO UNPACK.AND.OUTPUT FOREVER; 
IF SUBSTRCPRINT.BUFFER»> INPUT.BUFFER-POINTER®1) EQL ESC 
THEN DO PUT.BLANKS=s 
BUMP INPUT.BUFFER. POINTERS 
SUBSTRCPRINT.~LINE»PRINTsLINE»POINTER* BINARY 
SUBSTRCPRINT. BUFFER» INPUT .BUFFER. POINTER? 
2))) 9 7 3 
BUMP PRINT.~LINE-POINTER BY BINARYCSUBSTR( 
PRINT.~BUFFER» INPUT.BUFFER.POINTERs2))5 
BUMP INPUT-BUFFER.POINTER BY 2% 
END PUT.BLANKS; 
ELSE DO PUT.CHARACTER; 
SUBSTRCPRINT-LINEsPRINT»LINE-POINTER?1) | 
SUBSTRCPRINT.~BUFFER+> INPUT. BUFFER. POINTER»s1);3 
BUMP PRINT.LINE.~POINTER; 
BUMP INPUT.BUFFER.POINTERS | 
END PUT.CHARACTER; 
IF SUBSTR(PRINT «BUFFER» INPUT. BUFFER «POINTER» 1) EQL RS 
THEN OUTPUT.LINES 
IF SUBSTRCPRINT.~BUFFER»s INPUT.BUFFER.~POINTER®1) EQL ETX 
THEN DO END.ITs 
IF PRINTe-LINE-POINTER GTR 0 
THEN OUTPUT.LINES 
RETURN? 
END END.IT> 
END UNPACK.AND.OUTPUT? 


END PROCESS-PRINT.OR.-PUNCH. BUFFERS 
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VARIABLE *LOGGED.~ON")+ CHANGING BUFFER.STIZE CCHANGING THE VALUE OF &% 
THE VARTABLE "BUFFER.SIZE™) OR LOGGING OFF CRESETTING THE VARIABLE Z 
"“LOGGED.ON"). | | | y 4 


he 
RMR EEUEAELELAL ELLE LEAR LEAL ALLELE LAL EL EEAL EL LELEMELULLRL ALLL ELEEEELLAL EL 
| rs 


i R PAGE 
SEGMENTC OUTPUT.SPO)3 | | 
% | | z 
LLLLLLLL ULLAL LL ALL LULL ELLA ALLL ELLE LULL LULL LE ELLE LALLA LLE LUKE LL ELLY 
| z | | . 
: % PROCEDURE: PROCESS.OUTPUT. SPO. MESSAGE 
% 
% THIS PROCEDURE IS REFERENCED ONLY BY THE PROCEDURE “CONTROL.-LOOP". 
| t | 
% ALL MESSAGES RECEIVED FROM THE PROGRAM *RJE/DCH™ THROUGH THE QUEUE 
%  "RJE/SPO.OUT™ ARE PROCESSED THROUGH THIS PROCEDURE. THE INPUT 
% BUFFERS RECEIVED FOR THIS PROCEDURE WILL HAVE VALUES OF EITHER 
% "000" OR "001" FOR THE VARIABLE “INPUT.BUFFER-STATION". IF THE 
% STATION VALUE IS "001"- A SPO MESSAGE» THE MESSAGE IS DISPLAYED ON 
Z THE B1700 SPO. FOLLOWING THE DISPLAY IF THE VARIABLE “LOGGED.ON" 
% HAS NOT BEEN SET» AN ADDITIONAL DARKENED FIELD 1S THEN DISPLAYED. 
% (WHEN RUNNING THIS PROGRAM IN AN RJE ENVIRONMENT» IT IS USUALLY © 
% NECESSARY TO ENTER ONE'S USERCODE AND PASSWORD WHEN STARTING UP ANZ 
% RJE SESSION. THIS DARKENED FIELD IS PROVIDED AS A SECURITY MEASURE % 
% TO PROTECT A USER'S USERCODE AND PASSWORD. IT WILL NO LONGER BE % 
% DISPLAYED ONCE A USER HAS SUCESSFULLY LOGGED ON WITH THE HOST.) x 
% SHOULD THE BUFFER RECEIVED BE A CONTROL MESSAGE (STATION EQUALS z 
%  "000") THEN DEPENDING UPON THE TYPE GF CONTROL MESSAGE RECEIVED» ANZ 
% APPROPRIATE ACTION WILL BE TAKEN EITHER LOGGING ON (SETTING THE x 
Z 
x 
x 
x 
z 
z 


PROCEDURE PROCESS.QUTPUT.~SPO.MESSAGE; 
IF INPUT.BUFFER-~STATION EQL "001" 
THEN DO DISPLAY.MESSAGE>3 
DISPLAY SUBSTRCPRINT. BUFFER» 0» (BINARY C 
INPUT.BUFFER.LENGTH) = 1))% 
IF NOT LOGGED.ON 
THEN DISPLAY 20D@ CAT “WWWWWWWWWWWWWWWW CAT 
| aoDa CAT "EEE EEEEEEEEEEEEE™S 
END DISPLAY.MESSAGE>; 
ELSE DO PROCESS.CONTRGL.MESSAGE 3 
| CASE BINARYCSUBSTRCPRINT. BUFFER» 022))>3 
, 
LOGGED.ON ! 1+; 7 OS 
BUFFER.«SIZE § BINARYCSUBSTRCPRINT. BUFFER »253))3 
LOGGED.ON 1t O; 7 | | | 
END CASE; 


NMRNM HR NRNRNMRNNMM NH NMKN NN 
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END PROCESS.~CONTROL.~MESSAGE> 


END PROCESS.~OUTPUT-SPO.MESSAGE>; 

KU LLLLU LUA AL ALLL ALLL ALLL LLL LAL ULLL ALLL ALLL LLL ALL LEELA ALLER LEELLLE 
& PAGE 

SEGMENTC INPUT.SPO0)>, 


yA 


v4 
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PROCEDURE: PROCESS.~INPUT.SP0~.MESSAGE | m 

v4 


MN MRR NM MMM NMR RN MR MRR De Pe: 


"RJE/DCH® TO STOP ALSO CMESSAGE TYPE %999"%, SEE DOCUMENTATION). A 


THIS PROCEDURE IS REFERENCED ONLY BY THE PROCEDURE “CONTRCL.LOOP™.2 
| he 


INPUT SPO MESSAGES ARE PROCESSED WITH THIS PROCEDURE. THESE ARE ALL% 
MESSAGES RECEIVED FROM THE PROGRAM "RJE/SPO.TEST™ VIA THE QUEUE vA 
"RJE/SPO-IN™. WHEN THE PROCEDURE IS ENTERED» THE OUTPUT BUFFER 2% 


HEADER IS CLEARED AND THE VALUE FOR THE STATION IN THE HEADER SET 2% | 


TO 7001" COUTGOING SPO MESSAGE). FHE FIRST CHARACTER OF THE MESSAGEZ 
RECEIVED IS THEN CHECKED AND SHOULD THE IT BE A ™.™" IF IS ASSUMED 
TO BE A CONTROL MESSAGE FOR THE B1700 RJE SYSTEM. FIVE CONTROL | 
MESSAGES ARE POSSIBLE. A ™.READ™ WILL CAUSE THE VARIABLE 
"CARDseFILE-PRESENT™ TO BE SET AND CARDS WILL BEGIN TO BE READ WITH 
THE NEXT PASS THROUGH THE PROGRAMS CONTROL LOOP. A “.STOP™ WILL 
CAUSE THE PROGRAM T0 GO TO EOJ AS WELL AS INSTRUCT THE PROGRAM 


".LOG" WILL CAUSE THE PROGRAM TO INSTRUCT "RJE/DCH® TO DISPLAY IT*SZ 


CURRENT ERROR SUMMARY CMESSAGE TYPE “999"). AN *.EST™ WILL CAUSE % 
THE PROGRAM TO INSTRUCT "RJE/SDCH™ TO REESTABLISH THE COMMUNICATIONZ 


LINK WITH THE HOST SYSTEM (MESSAGE TYPE "997"). LASTLY A “.WAIT™ v4 
WILL CAUSE THE PROGRAM TO INSTRUCT "RJE/DCH™ TO IDOLE ITSELF AND ys 
WAIT TO ANSWER A PHONE CALL FROM THE HOST. SHOULD THE CONTROL ys 
MESSAGE RECEIVED NOT CONFORM TO ANY OF THESE CASES IT IS DISCARDED % 
OTHERWISE THE APPROPRIATE ACTION MENTIONED ABOVE IS TAKEN. IF THE 2% 
MESSAGE RECEIVED FROM *"RJE/SPO-TEST™ NOT BE A CONTROL MESSAGE I[T IS2% 
SENT OUT TO "RJE/DCH™ FOR TRANSMISSION TG THE HOST WHEN RECEIVED 2% 

BY THE PROGRAM *RJE/SPO.TEST™ AN “ETX™ CHARACTER WAS PLACED AT v4 
THE END OF THE MESSAGE. BEFORE THEREFORE BEFORE RELEASING THE ho 
MESSAGE TO “RJE/DCH™» THE NUMBER OF CHARACTERS IN THE MESSAGE UP TOZ~ 
THE "ETX*™ CHARACTER ARE COUNTED SQ THAT THE LENGTH FIELD IN THE &- 
OUTPUT BUFFER HEADER MAY BE PROPERLY SET. : | Zk 

: yf 
ESTESELELELERESULSTELESEEETSLETERETESTESTESESETERESESELELESES SESE SEES 
| he 

& PAGE 


PROCEDURE PROCESS. INPUT.~SP0Q.MESSAGE>s 


CARD.-COL.~POINTER I OO» 
QUIPUT.BUFFER.-HEADER ff "0000000000"; 


OUTPUT.BUFFER.~STATION 1 "001°; 


~ 


10- 30 


BURROUGHS CORPORATION | COMPANY CONFIDENTIAL 
SMALL SYSTEMS GROUP | B1700 RJE/DCH 
SANTA BARBARA PLANT : | , P.S. 2212 5272 


IF COLUMNCO) EQL *.* 
THEN DO PROCESS- CONTROL.MESSAGE3 
IF SUBSTRCCARD+154) EQL ™READ”™ 
THEN DO SET.READ.FLAGS 
CARD.sFILE-PRESENT 1 1% 
RETURN; 
| END SET.READ.FLAG; 
IF SUBSTRCCARDe1+4) EQL “STOP™ 
| THEN OUTPUT.BUFFER.TYPE t "999"; 
IF SUBSTRCCARDs1,-3) EQL *LOG" 
THEN OUTPUT. BUFFER.TYPE 1 7998"; 
If SUBSTRCCARD»1>3) EQL "EST 
THEN OUTPUT. BUFFER.TYPE 1 "997%; 
IF SUBSTRCCARD»1+4) EQL "WAIT™ 
THEN OUTPUT.BUFFER.TYPE 1! 7996"; 
If OQUTPUT.BUFFER.TYPE NEQ "000" 
THEN WRITE CONTROL. QUEUECOUTPUT.BUFFER)>; 
IF OUTPUT.BUFFER-TYPE EGQL "999" 
THEN STOP; 
END - PROCESS.~CONTROL.~MESSAGE> 
ELSE DO SEND.SPO.MESSAGE FOREVER; 
IF COLUMNCCARD.COL-~POINTER) EQL ETX OR 
CARD.~COL-POINTER EQL 72 
THEN DO TRANSMIT.~SPO.MESSAGEs | 
OUTPUT.-BUFFER.-LENGTH !# DECIMAL C 
CARD.COL~POINTER>4)3 
SUBSTRCCARD.BUFFER»0*sCARD.COL.POINTER 
) 1 SUBSTROCCARD»0-CARD.~COL-POINTER)s 
WRITE CATA. COUN SUERC COU TEES UeE Er 
RETURNs 
END TRANSMIT.~SPO.MESSAGE>s 
ELSE BUMP CARD.COL-POINTERS 
END SENO.SPO.MESSAGE>s 


| | END PROCESS. INPUT.~SPO.MESSAGE> 
LUMAR ULAR UE LELAY ALAA AY LAMA LEIA YAN LUAATA AY ANALY LAU AAAAU AAU AY AMAA IATL 
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A yA 

y 4 PROCEDURE: CONTROL .LOOP h 

4 4 ys 

yA & 

% THIS IS THE MAIN CONTROL LOOP FOR THE PROGRAM IT IS CALLED BY ‘THE he 

yA MAIN PORTION OF THE PROGRAM. | Z 

Z THE MAIN FUNCTIONS OF THE PROGRAM ARE CONTROLLED WITH THIS a 


h PROCEDURE. IY CONSISTS OF THREE “DO™ LOOPS ANO ONG “IF™ STATEMENT pA 
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NAMED *LOOP™). IN EACH "DO * LOOP ONE OF THE THREE INPUT QUEUE y4 
FILES OF THE PROGRAM IS CHECKED. IN EACH LOOP FOLLOWING THE READ ONZ 
IT*S RESPECTIVE QUEUE» IF NO INCOMING MESSAGE WAS SEEN» THE EOF  % 
CONDITION OF THE READ IS TRUE AND THE LOOP WILL BE EXITED ANC THE 2% 
NEXT LOOP OR IF STATEMENT CHECKED. IF A MESSAGE WAS PRESENT THEN % 
THE APPROPRIATE PROCEDURE CALL TO PROCESS THE MESSAGE IS EXECUTED % 
BEFORE THE LOOP IS EXITED. THE IF STATEMENT CHECKS THE VALUE OF THEZ 
BIT “CARD-FILE-PRESENT™. IF TRUE» INOICATING THE PRESENCE CF AN 4 
INPUT CARD FILE TO BE PACKED AND SENT» THE PROCEDURE yA 
"READePACK-AND-SEND-~CARDS IS CALLED TO READ AND PACK CARDS UNTIL r4 


A BUFFER HAS BEEN FILLED AND TRANSMITTED CNOTES A ".READ™ INPUT SPOZ 


MESSAGE MUST HAVE BEEN RECEIVED BEFORE THE CARD FILE COULD HAVE | r4 
BEEN OPENED.). THIS LOOPING PROCESS WILL CONTINUE INDEFINITELY fe 
UNTIL A "STOP" INPUT SPO MESSAGE IS RECEIVED STOPPING THE PROGRAM.% 
to 


he 


PROCEDURE CONTROL-LOOP; 


DO LOOP FOREVER; 
D0 CHECK.SPO. INPUT. QUEUE? 
READ SPO.INPUT.~QUEUEC(CARD)3 
ON EOF UNDO CHECK.SPO.INPUT.QUEUES 
PROCESS. INPUT. SPO. MESSAGES 
END CHECK-SPO.INPUT QUEUE; 
DO CHECK.SPO. OUTPUT. QUEUE; 
REAO SPO.OUT.QUEUECINPUT.BUFFER)3 
ON EOF UNDO CHECK.SPO.OUTPUT. QUEUES 
PROCESS.OUTPUT .SPO.MESSAGE3 
END CHECK.SPO.OUTPUT. QUEUES 
DO CHECK.PRINT. OUT. QUEUES 
REAO PRINT.OUT.QUEUEC INPUT.BUFFER) 3 
ON EOF UNDO CHECK.PRINT.OUT. QUEUES 
PROCESS.PRINT.OR-PUNCH.BUFFERS 
END CHECK.PRINT.OUT .QUEUES 
IF CARD.FILE.PRESENT 
THEN READ. PACK «AND «SEND. CARDS3 
END LOOP; 


END CONTROL.LOOP; | ~. 
peEX RAE EXG ARLE LU RELY LEAR EEE AUER EARL RE REALLE LEHRER EEE ALEEELE EE 
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& PAGE 

% ; 

2 MAIN PROGRAM % 
yA . 


yA 


THIS PORTION OF THE PROGRAM IS EXECUTED ONLY ONCE. WHEN EXECUTED» Z% 


a 
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ke THE PROGRAM HERE INITIALISES ALL VARIABLES FOR THE PROGRAM AND THENZ 
yA ENTERS [T*S CONTROL LOOP BY CALLING THE PROCEDURE *CONTROL.~LCOP” a 
v4 AND NEVER RETURNS TO THIS MAIN PORTION GF THE PROGRAM. eA 
h r4 
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he | | ok 


CONTROL.BITS | POINTERS. AND.PARAMETERS t INPUT.BUFFER 1 
OUTPUT.BUFFER &t INPUT.LINES &§ QUTPUT.LINES ¢ O, 
BUFFER.~SIZE { 401; 


CONTROL.~LOOP>, 
LE ULELAU ARAL RULER A LEELA LLL ELEELE LEAL LEULLA LLL ELLE LLURKE ULE EL KALE ELE UALE 


FINI 
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Figure 6.1 (Cont.) Line-discipline Message Flow 
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